








APPLE Il 





The BS95 ot 
WHS 


Volume 2 


Oct/Nov 78 to May 79 


The BEST of MICRO 
Copyright © 1979 by MICRO INK, Inc. 
P.O. Box 6502 
Chelmsford, MA 01824 


617/256-5515 


MICRO is a publication devoted to the world of the 6502 microprocessor: 
the 6502 based microcomputers, peripheral hardware, software, ideas, 
applications, and so forth. 


MICRO began publication with the Oct/Nov 1977 issue and was published 
regularly on a bimonthly basis for the first year. During the second year , 
MICRO became a monthly publication. This volume, ‘“‘The Best of MICRO 
— Volume 2’, contains all of the significant material from issues 7 through 
12 of MICRO. Only the advertising, a few minor articles, and a few dated ar- 
ticles have been omitted. Any errors which were discovered after the initial 
publication of the articles have been corrected in this collection. 


“MICRO obtains most of its material from its readers: users of 6502 based 
systems — hobbists and professionals alike. Authors are paid a fee for ar- 
ticles which appear in MICRO, and will obtain additional royalties for 
reprinting such as this collection. 


MICRO is interested in promoting the use of the 6502 and feels that this 
can best be accomplished by presenting material that is of a useful, infor- 
mative nature as opposed to lots of games or vague ‘‘think” pieces. 


MICRO has, in the period Oct/Nov 1978 through May 1979 which is covered 
in this volume, focused primarily on the KIM, PET, and APPLE microcom- 
puters. This is because the material we recieved was about these three 
systems. We would welcome material about the OSI systems, or any of the 
myriad of other 6502 based systems which are not as popular. We also an- 
ticipate broad coverage of the new 6502 systems that are just becoming 
available at the end of the period: the SYM-1 and the AIM-65. 


MICRO covers all of the 6502 systems because we feel that ideas 
generated on one system may often be useful to users of other related 
systems. Therefore, do not just read the stuff in the section on your par- 
ticular machine, but find out about the other machines as well, and see 
what you can adapt to your own uses. 


MICRO is now published monthly by MICRO INK, Inc. For information on 
subscriptions and back issues, write to: 


MICRO 

P.O. Box 6502 
Chelmsford, MA 01824 
USA 


Editor/Publisher 
Robert M. Tripp 


CONTENTS 


AIM / SYM / KIM .............. 2.00 c eee ewe ete eee rece eee eeeenaes pages 5 to 62 
Ask the Doctor Part] ....... 0. ccc ccc ee eee ee eee ete ee tee teen sense nee nneas 7 

es | ccc 9 

= | | cc 14 

PartlV 2... ccc cc ce ee ee cee te ene teen ence eee eee aneteeeneens 16 
A Simple 24 Hour Clock for the AIM 65 ... 0.2... cc eee nee ee eeeeaes 18 
An AIM 65 User’s NoteS ......... 0... ccc ccc eee eee ee eee teen ee eee ee tee nneteaees 21 
A Digital Clock Program for the SYM-1 ....... 0... cc cee ce eee tee eet renee nents 24 
Super HI-LO for the SYM-1 . 0... cc te eee et eee eee teen seen e neue eennes 26 
SYM-1 Tape Directory ..... 0... ccc ee ce eer eee teen eee teen eee nee eenaes 31 
SYM-1 6522 Based Timer... 1.2... ccc ccc ee eee eee e ee eee eee eneneennnnees 34 
KIM-1 as a Digital Voltmeter ....... 0... 0c. cc ee eee teen eee eee een eees 36 
Inside the KIM TTY Service ......... 0... ccc ee ee nme tenet eee teen eee eeneeees 37 
KIMDASE «1... een eee ee eee eee nee eek eee eee eee tence tena neenens 39 
LIFE for the KIM-1 and an XITEX Video Board ..... 0... 0... ccc eee eee een eeee 47 
EKIM or MAXI-KIM Extended Keyboard Input Monitor .............0.20 cece eee eee ee eeaee 57 
Corrected KIM Format Loader for SYM-1 ........ 0... ccc cee eee eee eee eee e eee nees 59 
Storage Scope ReviSited ..... 0... ccc cece cette erence ete eneetenenees 61 
PN nd od Oe | pages 63 to 112 
BREAKER: An APPLE II Debugging Aid ................. weet eee ete e eee ee ennsees 65 
Two APPLE II Assemblers: A Comparative Review ............ 0.0.0 cece cece eee eee eee 72 
APPLE Calls and Hex-Decimal Conversion ......... 0... 0c cece cc ee tee eee eee ees 74 
APPLE II High Resolution Graphics Memory Organization ............00. cece cece cece ees 75 
MOS 16K RAM forthe APPLE I] ....... 0.0... cc cc cc ee eee cee eee tanec eenenee 76 
LIFE for your APPLE ... 0... ce ce ee cn cee ee teen e eee tence eee e eet neene 77 
An APPLE Il Page 1 Map ........ cc cc ccc cc ee ct e ete eee eet e ee eee eeneenae 81 


Exploring the APPLE IIDOS ............. ee 83 


How Does 16 Get You 10? .. 0... cc ct eee eee ence eee eee een nees 85 
APPLE II Trace List Utility ... 0... 0. cece eee een eee eee ene eee e eens 87 
6522 Chip Setup Time .... 20... cee eee eee ee eee eee eee eee ene 93 
An APPLE II Program Edit Aid ......... 0... ccc ccc eee eee eee ene eens 94 
A Cassette Operating System forthe APPLE I] .......... 0... cece eee eee ene 97 
SC Assembler Ill: Super APPLE Il Assembler .............. 0. ccc eee eee eee eee 100 
The Integer BASIC Token Systeminthe APPLE Il ......... 2... 0... cece ee eee tees 103 
Improved Star Battle Sound EffectS ..... 0.0... 0. ccc eee ee eee e tenes 104 
Renumber ApplesSoft ....... 00. cc cette e eee eee e eee eee e eee nena eee eees 106 
An APPLE II Program Relocator ............ 0 ccc cee eee nee eee eee ees 108 
ad pages 113 to 154 
A Memory Test Program for the Commodore PET ........... 0. cc ccc cee nec eee e eae nee 115 
PEEKing at PET’s BASIC ... 1... cece teen ett e eee eet eee tenes 116 
PET Update .. 1... cc cc ee tee ete eee tence eben eee neces etn eenens 117 
How Goes Your ROM Today? ......... ccc cc cc cece eee reece cece bee e eee eeenes 120 
High Resolution Plotting forthe PET ........ 0... 0. ccc cee eee eee eect ene ees 123 
‘Thanks for the Memories” A PET Machine Language Memory Test ................000: 123 
LIFESAVER ... 1... ccc cee cc eee een eee eee e renee ene e ee eeeeneaee 132 
The Ultimate PET Renumber ........... 0. cc ccc cee eee eee tenes tweet eneees 135 
A PET Hex Dump Program .......... 0.00 cece eee eee eee nese eee eeeneaes 145 
Continuous Motion Graphics, or, How to Fake a Joystick with the PET ................... 148 
The Sieve of EratosthenesS ......... 0... 0... ccc ete eee cee ene sees ener eeee 151 
Inside PET BASIC .. 1... ec ce eee eee eee tence een ence een eeeuae 152 
General .... 0... eee eee e eee cece eee een e nese pages 155 to 224 
Manufacturers of 6502 Microcomputers ......... 0.0. cece eee teen e eens Lee e eee eeee 156 
6502 Interfacing for Beginners: The Control Signals ........... 0c 157 

Buffering the BusseS ............c 0 cece eee eee cece eens 159 

An ASCII Keyboard Interface ......... 0.0.0.0 eee eee ees 162 
Real Time Games on OSI]... 0... 0... ccc ccc eee eee een e eee eeneeeetererens 165 
650X Opcode Sequence Matcher .......... ccc ccc cece eee eee eee eee eens 167 
Cassette Tape Controller .... 0... 0. ccc ce een ee eee ee eee eee ee eee ee eeeeee 173 
Expand Your 6502-Based TIM Monitor .......... 0c ccc cece eee tee eee ee eee ee enee 177 
6502 Graphics RoutineS ...... 0... 0. ccc cc ee eee cece ee cee eee teen eeent ence WY 
A Close Look at the Superboard I] ........... Dee ewe ee nee eee eee eee eee eee eenee 182 
Two Short TIM Programs ........ 0... ccc cece nc cee ee ene eect teen eee e encase ceuuneces 186 
A 100 Microsecond, 16-Channel Analog to Digital Converter .............. 0.00 eee eee 188 
Using Tiny BASIC to Debug Machine Language Programs .............00cueeeeeeeueues 193 
The OSI Flasher: Basic Machine Code Interfacing ........... 0... cee eee 198 
The MICRO Software Catalog ...... 0... ccc cc ce cence ee eee eee eens eee eennas 200 
6502 Information Resources Updated ......... 0... ccc ee eee eee e eens 210 
6502 Bibliography ....... 0... ccc cee eee e ee eee eee eee eee e ee eee een wees 212 





AIM I SYM KIM 0... ccc cc ccc ce ee eet ee eee eee eee eeeeee pages 5 to 62 


Ask the Doctor Part] 1.0.0... ccc eee eee teen eee e neve eenneeeneeeeenne vf 

6 Oe | 9 

Part Uh... ccc ccc ce eee eee eee ene eee ne nese e eee nenneees 14 

0 A 16 
A Simple 24 Hour Clock for the AIM 65... 1... cee ce eee teen ees anne 18 
An AIM 65 User’s NoteS ......... cc ccc cece eee eee teen eee eee een e nee eneeenenas 21 
A Digital Clock Program for the SYM-1 . 1.1... ccc ce eee cee eect ete e ee saseeeeuens 24 
Super HI-LO for the SYM-1 0... 1... cece eee eee reece ee eee eee et eee eneeeeaae 26 
SYM-1 Tape Directory ....... 0... ccc cece teen cece nent eet eeneneeerane 31 
SYM-1 6522 Based Timer .. 1... cc ee ce ee tec ee eee ee ee teense ene ennnnes 34 
KIM-1 as a Digital Voltmeter ....... 0.0... ccc ee eee eee e eee ene enenneaee 36 
Inside the KIM TTY Service ....... 0... ccc ccc cee ee cee tee ete eee eee nearer enesnnes 37 
KIMDASE .. 1. cc ewe ee tee cae ee ee eee eee eee ete neta aren bens eneneee 39 
LIFE for the KIM-1 and an XITEX Video Board ....... 06. eee eee eens 47 
EKIM or MAXI-KIM Extended Keyboard Input Monitor ............... 2c eee eee eee 57 
Corrected KIM Format Loader for SYM-1 .. 0... . 0. cc ec ce ee te eee eee eee eens 59 
Storage Scope Revisited ........... ccc eee eee ee eee nee e ee eeeeees 61 


ASK THE DOCTOR — PARTI 


Robert M. Tripp, Ph. D. 
The COMPUTERIST, Inc. 
P.O. Box 3 
S. Chelmsford, MA 01824 


The Rockwell International AIM 65, the Synertek SYM-1 and the 
Commodore KIM-1 form a closely knit family of microcomputers. 
Of course they all use the 6502 microprocessor, but the family 
resemblence is much deeper than that. A few of the features that 
make the three boards so similar are: 


1. Each is a “bare” single board microcomputer without a case, 
built-in power supply, etc. 


2. They have the same basic 1/O support: 
A. 20 mA current loop TTY interface; and, 
B. Low Speed Audio Cassette interface. All three computers 
support the KIM-1 cassette tape format. This means that a 
Cassette tape generated in the KlM-mode on any of the 
machines can be read on any other machine. This tape cassette 
compatibility is so complete that it is possible to directly inter- 
connect a KIM to SYM, or KIM to AIM, or SYM to AIM via the 
the audio cassette interface - without the cassette! Simply take 
the Audio Out HI from one computer and connect it to the 
Audio IN of the other. Then run the Load KIM format cassette 
program on the second computer and the Write KIM format 
cassette program on the first computer. 


3. They have a compatible bus structure. Each computer has two 
dual 22 pin edge connectors with essentially the same 
connections. The Expansion connectors have identical placement 
of all the Address, Data, Control and Power lines. The Application 
connectors have identical placement of most signals that are 
common on the three computers - Port A and Port B 1/O, Power 
and Ground, Audio Cassette 1/O, TTY I/O - plus some additional 
signals which are unique to each computer. This bus similarity is a 
very important component of the AIM/SYM/KIM (ASK) family 
compatibility. 


4. The SYM intentionally “duplicates” many of the KIM Monitor 
routines, and has a similar Hex Keypad and LED Display on board. 
The reader is hereby warned to be careful when using SYM 
routines which proport to be ‘the same as” the KIM routines. As 
will be shown in a later column, there are often minor, but 
important differences between two routines which at first appear 
identical. For example, in the KIM PACKT subroutine, a successful 
return is signaled by the Zero Flag being Set; an error return by the 
Zero Flag being Cleared. The similar SYM PACKT subroutine 
performs the same packing function, but signals a successful 
return with the Carry bit Cleared; an error return by the Carry bit 
Set. So, be careful. 


An AIM/SYM/KIM Compatibility Example 


One way to understand the nature of the similarities and 
differences between the ASK family members is to examine in 
detail a common situation which involves both hardware and 
software for the three systems. MEMORY PLUS(tm) is a 
multi-purpose board that was designed for the KIM-1 long before 


the SYM or AIM were even a gleam in their creators’ eyes. It 
contains 8K RAM, provision for up to 8K EPROM, a 6522 Versatile 
Interface Adapter, and an EPROM Programmer. Since it was 
designed to work on the KIM-1, it obviously is compatible with 
that computer. The question is: Is the MEMORY PLUS compatible 
with the SYM and AIM? The answer is Yes, No, and Maybe. Let’s 
examine this seeming paradox in some detail. 


YES 


The 8K RAM and the 8K EPROM work directly with the KIM, SYM 
and AIM with no modification. In fact, the same connector cable 
may be used to connect the MEMORY PLUS to any one of the 
computers. This exact compatibility is due to the fact that all that 
MEMORY PLUS requires for operating the RAM and EPROM are 
the Address, Data, Control and Power lines, and these are all 
positioned identically on the Expansion connector. 


NO 


The addressing of the 6522 VIA I/O was designed to use the K5 
chip select that is generated by the KIM and which appears on the 
Application connector. This same signal is generated by the SYM 
and makes the addressing of the 6522 VIA identical to that of the 
KIM. The AIM does not generate this signal. Therefore, without 
some sort of modification, the AIM can not use the 6522 VIA, and 
since this is the heart of the EPROM Programmer, can not program 
EPROMs. Fortunately, there are a couple of unused gates on the 
MEMORY PLUS and a minor wiring modification can be made so 
that the MEMORY PLUS will itself generate the equivalent of the 
K5 signal and permit the AIM to use the 6522 VIA and EPROM 
Programmer. This does point out a small, but significant 
difference, between the bus signals of the KIM, SYM and AIM. In 
general, the SYM made much more of an effort to be KIM 
compatible than the AIM did. This example where the KIM and 
SYM generate the K1, K2, K3, K4, and K5 signals and the AIM does 
not, is probably the greatest difference in the hardware as seen on 
the Application and Expansion busses. 


MAYBE 


Since the KIM does not do all of the address decoding required for 
a system beyond the initial 8K used by the KIM on board, any 
additional memory device must generate a DECODE signal which 
enables the KIM memory at the proper times. The MEMORY PLUS 
board has circuitry to generate the DECODE. The SYM and the 
AIM do all of the required address decoding for their operation 
on-board, and do not therefore require this signal. The DECODE 
signal may be simply ignored in these two systems by not 
connecting it from the MEMORY PLUS to the SYM or AIM. 


There are other addressing space differences between the three 
systems, which may or may not be important in a particular 


situation. All three have RAM in locations 0000‘ to O3FF. This 
includes the Page Zero and Stack locations. The KIM does not use 
0400 to 16FF, but uses 1700 to 177F for 1/O and Timers, 1780 to 
17FF for RAM, and 1800 to 1FFF for the ROM Monitor. The AIM 
has 0400 to OFFF available for on-board RAM expansion, 1000 to 
OFFF are available for User expansion, A000 to AFFF is used for 1/O 
and System RAM, and the remainder of the memory is allocated 
for various ROMs: BOOO to CFFF for BASIC, DOOO to DFFF for 
Assembler, and E000 to FFFF for Monitor. The SYM has 0400 to 
OFFF for on board RAM expansion, 1000 to 7FFF for User 
expansion, 8000 to 8FFF for Monitor ROM, 9000 to 9FFF reserved 
for Monitor expansion, A000 to AFFF for System RAM and I/O, 
BOooO to BFFF for User expansion, C000 to DFFF for BASIC ROM, 
E000 to FF7F reserved for Assembler/Editor ROM, and FF80 to FFFF 
for SYSTEM RAM Echo locations. The above listing of memory 
allocation should make it obvious that the three systems each 
have I/O and Monitors located in different places, so that software 
calling on the 1/O or Monitor will have to be at least different in 
the addresses used. On the MEMORY PLUS this shows up when the 
host computer's Port B is used to generate three of the addresses 
required by the EPROM Programmer. While the three lines, PBO, 
PB1, and PB2 are all mapped to the same Application connector 
locations, the address of the 1/O device controlling the port is 
different. In fact, the 1/O device on the KIM is a 6530 and the 
‘device on the SYM and AIM is a 6522! All this does is require 
different addresses within the EPROM Programming program. 
Another memory mapping difference is in the location of the 
interrupt vectors. Each of the three computers uses different 
addresses to handle the interrupts. The MEMORY PLUS 
programmer uses the IRQ interrupt, and must therefore set up the 
JRO vector in a different location on the KIM, SYM or AIM. Again, 
this is a minor problem, but is an incompatibility. Finally, since the 
Monitor is in a different location in each computer, a return to the 
Monitor at the end of the EPROM program will be to a different 
address for each. If the MEMORY PLUS used the on-board Timers, 
then it would again require some modifications to the software. In 
the case of the KIM, the Timer is of the 6530 variety; the SYM and 
AIM have 6522 types. This would require a different set of 
parameters as well as different addresses. As a matter of fact, 
MEMORY PLUS uses its own 6522 Timer, and so this problem does 
not arise. 


One final note of caution on the memory allocation of the three 
computers. Even though they all support RAM in locations 0000 to 
O3FF, the use of this RAM, especially the end of Page Zero, is quite 
different between them, both in the amount of Page Zero RAM 
used and the use of particular locations. In addition, while the KIM 
and the SYM do not use Page One for anything, in general, except 
as the Stack, the AIM makes extensive use of Page One. This 
variation in use of Page Zero and Page One will often require that 
existing programs undergo some re-definition of addresses and a 
re-assembly before they can be moved from one computer to 
another, even when the Monitor of the computer is not being used 
as part of the program. 


SUMMARY 


The AIM/SYM/KIM family of 6502 based microcomputers have a 
lot in common; but they also have some significant differences. In 
most cases these differences are not so great that they can not be 
overcome with some careful modification to existing hardware 
and/or software. But, significant differences do exist, and any user 
who plans to use a variety of these systems should be aware of the 


potential problems that exist. Subsequent columns will go into 
more detail on the similarities and differences between the ASK 
family members. 


SYM Cassette Tape Problems 


There are two problems with the SYM tape service that users 
should be aware of. The first is that the SYM hardware has a filter 
circuit that is used in shaping the input signal from the cassette 
recorder. This particular circuit is very sensitive and will not work 
reliably with all tape recorders. It apparently was optimized to a 
particular type of unit, possibly a SuperScope C-190; and is not 
very optimal for a large number of other units. Several suggestions 
have been made to improve this circuit. One is to replace the 
resistor R92 (see page 4-9 in the SYM Reference Manual for a 
circuit diagram) which is a 1K with a 3.3K. Another idea that has 
been used was to put a .01 MFD capacitor in parallel with C15 
which is a .47 MFD. | have NOT had a chance to try either of these 
and do not guarantee that they either work or that they will not 
destroy your system. | am merely passing on a couple of 
suggestions which were given to me. ! hope to be able to give a 
more complete and tested set of changes by next month. 


The second tape problem has to do with reading KIM format tapes. 


As you probably know, the KIM format uses an ASCII “/” character 


to signal the end of data. This character has a hex value of 2F. The 
SYM Monitor has software to detect the end of data character 
which properly detects an ASCII “/” as it should. However, it also 
has software which erroneously thinks that an ASCII “2” followed 
by an ASCII “F” which when combined make a hex 2F data byte, is 
a terminator. This means that anytime your data has a 2F in it, as in 
4C 13 2F JMP $2F13 (Jump to address 2F13) 

it will mistake the legitimate 2F data as a “/” character and think 
that it has reached the end of the data. Since the following bytes of 
data will be considered to be the check digits, and will not be 
correct, the SYM will give you an error and stop loading. This can 
be very disheartening. Synertek is aware of the problem and is 
supposed to fix it, but no fix has been received here yet. 


One way | have overcome this difficulty, with some difficulty, is to 
load my program into the KIM, change any 2F data to an FF, and 
then either make a cassette tape or dump the data directly into the 
SYM from the KIM via the Audio Out HI on the KIM to the Audio 
IN on the SYM. Then | have to go to the SYM and change all of the 
FF’s which were substituted for the 2F’s back to their original 2F 
value. This is cludgy, but it works. If you do not have a KIM handy, 
however, you are out of luck. 


Coming Attractions 


Future columns will cover all sorts of interesting information about 
the AIM, SYM, KIM (and maybe SUPERKIM). If you have 
discovered any useful bits of information about these machines, 
please drop me a line and I will try to include the info in a future 
column. In this way the material can be widely disseminated 
without your having to write a whole article about it. 


Note: MEMORY PLUS(tm) is manufactured by The COMPUTER- 
IST, Inc., P.O. Box 3, 8. Chelmsford, MA 01824. It currently retails 
for $20000 


ASK THE DOCTOR — PART Ii 
AN ASK EPROM PROGRAMMER 


Robert M. Tripp, Ph. D. 
The COMPUTERIST, Inc. 
P.O. Box 3 
So. Chelmsford, MA 01824 


One of the most frequently asked questions about the ASK 
(AIM/SYM/KIM) family of microcomputers is: “Can a program that 
was written for one of the micros run on either of the others?” The 
answer is normally no. While the three micros share a lot - common 
expansion bus, similar application connector, KIM tape format ... 
they do have minor differences in their use of page zero and page 
one, some greater differences in their memory and 1!/O allocations, 
and large differences in their monitor subroutines. Therefore, in 
general, the answer to the question is: “No, a program written to run 
on one will not run on the others without modification.” This answer 
may lead the creative programmer to wonder what it would take to 
write programs which would run on all three machines, without 
requiring customization for each. What problems would be encoun- 
tered? What techniques could be used to reduce the problems? 
What about ...? 


| faced the three-machine problem for a practical reason. the 
MEMORY PLUS™ board that my company makes is hardware com- 
patible on the three systems. Part of the package is a cassette tape 
with a Memory Test program and an EPROM Programming program. 
It would be awkward to have to provide three sets of programs on 
the tape and expensive to have to print up three different sets of 
program listings. Would it be feasible to write a single program? The 
answer turned out to be: “Yes”. The program for the EPROM 
Programmer is presented here in its entirity. 


There are two major types of compatibility problems. The first is 
that the three monitors each have a different set of support 
subroutines. Sometimes they may have identical subroutines, but 
usually the subroutines are not identical, and often are not even 
close! In this particular program, this was not a problem since the 
program did not use any monitor subroutines. The second major 
problem is that various important locations in memory or in memory 
mapped 1/O are different on the three systems. Examples are the re- 
entry address for returning to the monitor at the end of the program, 
the location of the interrupt vector, and the address of the 
peripheral 1/O port. In this program all three of these address 
problems were encountered. The solution for the addressing 
problem is fairly simple and will handle all three addressing 
problems - if you understand the Indirect Indexed mode of ad- 
dressing on the 6502. If you are totally unfamiliar with this ad- 
dressing mode, you should consult your programming manual at this 
point and find out about it. If you are familiar with it, then this 
review may be useful. 


The Indirect Indexed addressing mode on the 6502 works by having 
a base pointer in a pair of page zero locations which is used to point 
to some other location in memory. The contents of the page zero 
locations are combined with current contents of the Y register to 
form the final address for an instruction. The assembler form of the 
instruction is LDA (POINT), Y in the standard MOS Technology syn- 
tax or LDAIY POINT in the MICRO-ADE syntax which is generally 
used in MICRO. In either case, what results is a form of addressing in 
which the page zero pointer forms the base address and the contents 
of the Y register allow this address to be modified within a range of 


00 to FF. If the pointer value was 2800, then the effective range of 
the indirect indexed instruction would be 2800 (with Y = 00) to 28FF 
(with Y = FF). The page zero pointer is set up in two consecutive 
bytes, with the low byte of the address first followed by the high 
byte of the address. In our example, if POINT was the page zero ad- 
dress 0006, then location 0006 would contain 00 (the low byte of the 
indirect address) and 0007 would contain 28 (the high byte of the in- 
direct address). Since the only problem we have to solve for the 
EPROM Programmer is one of different addresses for the three 
systems, the problem reduces to three steps: 


1. Determine which system we are runnng on: AIM, SYM or KIM. 

2. Set up appropriate indirect address pointers. 

3. Access the variable addresses via the indirect address pointers 
using the Indirect Indexed addressing mode. 


Now Let’s examine the program in a little detail to see how it ac- 
tually accomplishes all of this. 


The Program 


The program is assembled to run entirely on page zero. It uses a 
6522 VIA chip which is located on the MEMORY PLUS board for a 
lot of its I/O and timing. The registers within the VIA that are used 
are listed under VIA REGISTER OFFSETS. These offsets will be used 
within the program to load the Y register prior to making an Indirect 
Indexed instruction call so that the appropriate VIA internal register 
will be accessed. The first six locations in page zero are used by the 
program for parameters to control where the data to be placed into 
the EPROM starts in memory, ends in memory, and where it is to be 
placed in the EPROM. This information is filled in by the operator 
before running the program. Location “VIA” is an indirect pointer to 
the MEMORY PLUS VIA chip. This normally will be at location 6200 
and could have been addressed directly by the program. But, since it 
could be in another address, it was decided to handle it through the 
Indirect Indexed mode. The “JMPMON” location contains the Op- 
code for a JMP. This is used in conjunction with the contents of the 
next two bytes, “MONTOR”, to re-enter the system monitor at the 
end of the program or when an error is encountered. The actual 
monitor re-entry address value is filled in by the program. It appears 
as 0000 in the listing, but will be altered early in the program as we 
shall see below. The “INTVEC” is an indirect pointer to the IRQ in- 
terrupt vector which is used as part of the timing service of the 
program. This will be properly filled in at the beginning of the 
program from a table. “PBDD” and “PBD” are pointers to the Port B 
Data Direction and Port B Data registers. These will also be filled in 
from a table at the start of the program and will be used in {ndirect 
Indexed instructions. 


The program begins execution at location 0011, after the user has 
used his monitor to fill in the appropriate values in the parameters in 
locations 0000 to 0005. The first three instructions clear all of the 
status bits by pushing a 00 onto the stack from A and popping it into 
the status register. 


Locations 0015 through 0027 determine which microcomputer the 
program is running on by testing the contents of a ROM location. 
The contents of location FFFD is specific to each machine. This is 
the high order byte of the Reset Interrupt Vector. For the SYM this 
will be an 8B; for the AIM an EO, and for the KIM a 1C. The X register 
is loaded with a value which is the start of a table of values which 
will be moved into locations 0009 through 0010 to fill in the MON- 
TOR, INTVEC, PBDD, and PBD pointers discussed above. The in- 
struction at 0028 is unique to the SYM and is required to permit the 
program to access some of the SYM’s protected memory locations. 
It is not executed by the program for KIM or AIM. 


Locations 002B through 0035 move the appropriate table from its 
original location at the end of the program into the working indirect 
area. The AIM table starts at OODO; the KIM table at 00D8; the SYM 
at OOEO. 


By the time we reach ENTER at location 0036, two important things 
have been done. First, we have determined which machine we are 
running on. Second, using this information, we have set up our in- 
direct pointers which will be used by the remainder of the program 
to address the machine specific addresses. At ENTER we again set the 
status bits to zero. This is done so that a user with a different com- 
puter could still use this program. He would do this by manually set- 
ting up the pointers in 0009 through 0010 and then starting at 0036 - 
ENTER. 


Locations 003A through 0044 fill in the system interrupt vector to 
point to the interrupt servicing routine of the program which starts 
at 0OCS. This is a good place to examine the workings of the Indirect 
Indexed addressing. The Y register is set to 00. The A register is 
loaded with the low byte of the interrupt service routine address. 
This value will be C5 since the routine starts at OOC5. This is then 
stored in the system interrupt vector which is addressed by adding 
the contents of Y (00) to the address contained in INTVEC. For the 
AIM INTVEC will have been set to A400; for the KIM INTVEC will be 
17FE; for the SYM A67E. So the effective address will be A400 for the 
AIM (A400 + 00= A400), 17FE for the KIM and A67E for the SYM. 
The A register is then loaded with the high byte of the interrupt ser- 
vice routine address, 00 since the routine is in page zero. The Y 
register is incremented so that it now contains a 01. When A is now 
stored with Indirect Indexed mode through INTVEC, it goes into 
A401 on the AIM (A400 + 01 = A401), 17FF on the KIM and A67F on 
the SYM. If you are not clear at this point as to how this works, then 
STOP. The rest of this article will make no sense until you under- 
stand the basics of the Indirect Indexed mode. Re-read the article to 
this point, consult your manual, ask a friend. 


Using the same techniques of setting Y to an offset value, loading A 
with the value to use, and storing in the Indirect Indexed mode, the 
VIA is initialized. 


The instructions from 005D through 0078 set up the VIA for output. 
One additional trick is used here. While we normally think of the Y 
register in connection with the Indirect Indexed mode of addressing, 
the X register can also be used for this mode of addressing - but only 
under one special condition. That condition is when the index value 
is OO. In this condition, the Indirect Indexed mode and the Indexed 
Indirect mode both collapse to the simple Indirect mode. There are 
several places in which we take advantage of this fact so that the X 
register can be set to zero once and used several times for ad- 
dressing. This section of code now gets the data from the indirect 
pvinters that the operator set into locations 0000 through 0005 and 
outputs the data to the EPROM Programmer. 
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Locations 0079 through 008A first set a timer in the VIA going for 
the 50 millisecond period which is required to program one location 
on the EPROM. Then the Peripheral Control Register on the VIA is 
set to enable the programming pulse to the EPROM. Again, Indirect 
Indexed addressing is used so that the VIA does not have to be at 
6200. If it is in any other address, the operator simply sets the poin- 
ter at VIA (0006, 0007) before starting the program. Everything else is 
automatic. 


Locations 008B to 008E form a loop which waits until an interrupt 
has occurred and been serviced. If you look down at the interrupt 
routine starting at 00C5 you will see that Y is changed so that it is no 
longer equal to OC. At this point the WAIT test will fail and the 
program will move on to VERIFY. 


Locations OO8F through 00C4 perform a series of tests and pointer 
updates. When the program reaches the end of the data, or if it 
detects an error, it makes a JSR to JMPMON. JMPMON then jumps 
to a re-entry point for the appropriate monitor as set up from the 
table at the beginning of the program. The reason for making the JSR 
is to save the address of where we are coming from to be displayed 
by the monitor as an indication of why we exited: successful com- 
pletion or one of the three errors. The JMPMON permits us to go to 
the correct monitor. While it would have been possible to have the 
initialization code change each of the four JSR’s to JSR directly to 
the appropriate monitor, this obviously would have entailed more 
code and would not have any benefit. 


The re-entry to the monitor is the only place where this code makes 
use of the system monitor, and wouldn’t you know it - each monitor 
handles the re-entry slightly differently. They each display an ad- 
dress which is related to the JSR from which it came, but each one 
displays a slightly different address. On the successful completion 
return which is at 00B7, the AIM displays 00B8, the KIM displays 
00B9, and the SYM displays OOBA. It would have been possible to 
write some additional code to take care of the address before retur- 
ning to the monitor, but this did not seem to be a serious enough 
problem to warrant the effort. But it does point out the problems 
one can encounter in using the ‘‘similar-but-different’’ monitor 
subroutines. 


Locations 00C5 through OOCF are the interrupt service. When the in- 
terrupt occurs, it is vectored here due to the setup that took place 
earlier in the program. The VIA is changed from programming mode 
to verify mode and the interrupt is cleared. In the process the Y 
register is changed so that the WAIT test will permit the program to 
recognize that an interrupt has occurred and to continue. 


The ATABLE, KTABLE and STABLE are the pointer values for the 
AIM, KIM and SYM respectively. At the start of the program they are 
moved into a standard set of locations starting at 0009 (MONTOR). 


00cC 
0001 
6002 
0003 
0004 
0005 
C006 
0007 
0008 
0009 
COCA 
COOB 
oo0C 
00CD 
OOOE 
OOF 
0010 


0011 
0015 
0014 
C015 
0017 
CO1A 
O001C 
OC1E 
0020 
C022 
0024 
C026 
CO2E 


CO2B 
CO2D 
COQ2F 
0031 
0033 
0034 


FF 


8B 
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PROM 


ACCESS 


CRG 


% 


VIA REGISTER 


JMPMON 
MONTOR 


INTVEC 
PBDD 


PBD 


BEGIN 


KIM 
SYM 
MOVE 


TABLE 


* KK Kk wk KK K 


¢0000 
¢8B86 SYM-] ACCESS ENTRY 
OFFSETS 


¢COOG CUTPUT REGISTER B 

¢0001 OUTPUT REGISTER A 

¢00C2 DATA DIRECTION REGISTER B 
¢0003 DATA DIRECTION REGISTER A 
¢o0008 TIMER TWO LOW 

¢0009 TIMER TWC HIGH 

¢000C PERIPHERAL CCNIROL REGISTER 
¢OCOD INTERRUPT FLAG REGISTER 
¢O00E INTERRUPT ENABLE REGISTER 


¢00 STARTING ADDRESS LOW 

¢00 STARTING ADDRESS HIGH 

¢o0 EPRCM LOW ADDRESS 

¢00 EPROM HIGH ADDRESS 

¢00 END ADDRESS LCW 

¢00 END ADDRESS HIGH 

¢o0 POINTER TO VIA 

$62 NORMALLY AT 6200 

¢4C JUMP TO MONITOR 

¢00 POINTER TO SYSTEM MONITOR 
¢00 FCR RETURN FRCM PROGRAMMER 
¢00 POINTER TC INTERRUPT VECTCR 


¢00 PORT B DATA PIRECTICN 


f00 PORT B DATA 


#00 CLEAR ALL STATUS FLAGS 


STABLE ASSUME SYM 

¢FFFD TEST HIGH BYTE OF INTERRUPT VECTOR 
¢8B = 8B FOR SYM-] 

SYM 

ATABLE ASSUME AIM 65 

fEC = EC FOR AIM 65 

MOVE IT IS THE AIM 

KTABLE ASSUME KIM 

MOVE 

ACCESS SYM REQUIRES ACCESS 
TABLE +01 SETUP POINTER 
{07 MOVE € BYTES 

¢C0 REPLACEC BY TABLE 
MONTOR MOVE TC MONTOR TABLE 


TABLE MCVE UNTIL X = FF 
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0085 
0087 
0089 


CC&B 
008D 


OC8F 
0091 
0093 
CO9S 
0097 


ENTER LDAIM $00 


NEXT 


TIMER 


WAIT 


VERIFY 


LDXIM 
LDAIM 
LDYIM 
STAIY 
LDYIM 
STAIY 
STAIX 
LDA 

STAIX 
LDA 

STAIX 
LDAIX 
LDYIM 
STALY 


LDAIM 
LDYIM 
STATLY 
LDAIM 
LDYIM 
STATY 
LDAIM 
LDYIM 
STAIY 


CPYIM 
BEQ 


LDAIM 
LDYIM 
STALY 
LDYIM 
LDATY 


INTRPT 


INTVEC 


¢EC 
PCR 
VIA 
IER 
¢7F 
VIA 


CLEAR ALL STATUS FLAGS 


ENTRY IF TABLE PRESET 
GET INTERRUPT POINTER 
SETUP IN TABLE 

/ 

BUMP PCINTER 


SETUP VIA VALUES 


DISABLE ALL INTERRUPTS 


CLEAR INTERRUPT PENDING 


ENABLE TIMER TWO. 


INIT X REGISTER 
SET DATA DIRECTION 


CUTPUT NEXT ADDRESS 
LOW 8 BITS 


BITS 8, 9, 10 
GET DATA BYTE 


CUTPUT VIA CRA 
SETUP 50 MILLISECCND TIMER 


OUTPUT TO TIMER TWO LOW 
HIGH BYTE OF TIMER 


OUTPUT TC TIMER TWC HICH 
PROGRAM HIGH, PROGRAM MCDE 


TEST FOR INTERRUPT SERVICED 
ELSE, WAIT FOR IT 


VERIFY PROGRAMMING 
SET CRA FCR INPUT 


SETUP POINTER 


0099 C1 O00 CMPIX SAL CCMPARE CRIGINAL DATA 


009B FO O3 BEQ OQKAY GOOD IF MATCH 

0CO9D 20 08 O00 JSR = JMPMON EXIT CN ERROR 

OOAC E6 O00 OKAY INC SAL BUMP DATA POINTER 
OOAZ DO 07 BNE TEST BRANCH IF NOT ZERO 
OOA4 E6 Ol INC SAH BUMP HIGH DATA PCINTER 
COA6 DO 03 BNE TEST BRANCH IF NOT ZERO 
CCAS 20 08 OD JSR = JMPMON EXIT ON ERRGR 

OCAB A5 05 TEST LDA EAH TEST ALL DONE 

QCAD C5 Q1 CMP SAH BY COMPARING POINTERS 
COAF DO 09 BNE MGRE 

OOB1 AS 04 LDA EAL 

C0B3 C5 00 CMP SAL 

COBS DO 03 BNE MORE 

00B7 20 08 00 JSR = JMPMCN DONE. 

OOBA Eé 02 MCRE INC PRMLCW BUMP PROM POINTERS 
OOBC DC OF BNE NEXT READY IF NCT ZERC 
COBE £6 03 INC PRMHGH BUMP HIGH PCINTER 
Ceco DO 9B BNE NEXT OKAY IF NOT ZERO 

cec2 20 Ce 00 JSR JMPMON EXIT ON ERROR 


COCS AD EC INTRPT LDAIM $EC RESET PROGRAM LOW, VERIFY MCDE 
O0C7 91 06 STAIY VIA 


CQC9 AQ OD LDYIM IFR SETUP TC CLEAR INTERRUPT 
OOCB Bl G64 LDAIY VIA READ AND WRITE TO CLEAR 
GOCD 91 O06 STAIY VIA INTERRUPT VIA SNEAKY TRICK 
COCF 40 RTI RETURN FROM INTERRUPT 
OCDC 6D ATABLE = ¢6D AIM 65 MONITOR ENTRY 
0OD1 £1 = fE1 TG DISPLAY PC CCUNTER 
O0D2 CC = $00 IRQ INTERRUPf VECTOR 
O0D3 A4 = $A4 

00D4 00 = $00 PBDD 

OOD5 AO = fA0 

00D6 02 = ¢02 PBD 

COD7 AC = €A0 

COD8 C5 KTABLE = $05 KIM MONITOR ENTRY 

OCCD9 IC = f1C 

OCDA FE = fF E TR@ INTERRUPT PCINTER 
CODB 17 = $17 

CODC 03 = {03 PBCD 

CODD 17 = €17 

CODE 02 = ¢02 PBD 

OCDF 17 = €17 

OOEO 35 STABLE = €35 SYM ENTRY POINT 

COE1 8&0 = $80 

OCE2 7E = $7E IRG INTERRUPT PCINTER 
OCES A6 = SAE 

OCE4 00 = €00 PBDD 

CCES AQ = $A0 

CCEE C2 = €02 PBC 

CCE7 AC = $A0 
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ASK THE DOCTOR - PART lil 
BITS AND BYTES 


Robert M. Tripp, Ph.D. 
The COMPUTERIST, Inc. 


P.O. Box 3 


So. Chelmsford, MA 01824 


The Doctor was busy this month and did not get a chance to write 
up the EPROM Programmer hardware as promised in the last 
issue. Look for it next time. A couple of people did submit some 
good info which is printed below. The Doctor encourages such 
input. Too much is happening with these. new computers for 
anyone person to “know it all’, so if you find out something 
interestng, please drop us a note and let us get the word out. 


Corrected AIM SYNC Program 


The early AIM User Manuals had a number of mistakes, as is to 
be expected the first batch. One of the more serious errors was 
in the listing for the SYN Write and SYN Read programs on page 
9-11. The errors have been corrected in later versions of the 
manual, but for those of you who need the programs, here they 
are - corrected. 


SYN Write Program: 
0300 20 1D F2 £4JSR F21D 
0303 20 4A F2 JSR F24A 
0306 4C 03 03 £JMP 0303 

SYN Read Program: 
0310 A2 00 LDX #00 
0312 A9 CE LDA #CE 
0314 20 7B EF JSR EF/B 
0317 20 EA ED JSR EDEA 
031A A2 00 LDX #00 
031C A9 DI LDA #D9 
031E 20 7B EF JSR EF/B 
0321 20 29 EE JSR EE29 
0324 c9 16 CMP #16 
0326 FO F9 BEQ 0321 
0328 DO E6 BNE 0310 


Patch for the AIM-DISASSEMBLER 


It soon becomes obvious, that the disassembler is extremely 
paper consuming, because no single-stepping is provided. The 
following program will save you money and time! 


Set F1 (010C) to ‘)MP 03D9’ and F2 (010F) to ‘JMP 03CB’. After 
loading the desired program address (*), hitting F1 will dissable 
just this line on the display. To advance, press the spacebar. 
If you want to modify, use ‘I’ and the program jumps to the 
instruction Mnemonic Entry. The current address will not be 
changed. ‘ESC’ brings you back to the AlIM—Monitor. With 
‘FI’, the next address will be disassembled. ‘F2’, however, will 
substract the last used op-code length from the current address 
and then disassemble the last entry! It is even possible to 
disassemble further “backwards”, just keep switching from 
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‘ESC’ to ‘F2’. Of course, a change in the op-code length will 
bring up some unexpected results, but very soon you'll catch a 
proper op-code again! 


O3CB AD 25 A4& LDA A425 
O3CE 18 CLC 

O3CF E5 EA SBC EA 
03D1 8D 25 A& STA A425 
03D4 BO 03 BCS 03D9 
03D6 CE 26 A4 DEC A426 
03D9 20 24 EA JSR EA24 
O3DC 20 6C F4 JSR F46C 
O3DF 20 07 E9 JSR E907 
03E2 20 3C E9 JSR E93C 
03E5 C9 49 CMP #49 
03E7 DO 03 BNE 03EC 
03E9 4C 9E FB JMP FB9E 
O3EC C9 20 CMP #20 
O3EE DO F2 BNE 03E2 
O3FO AD 25 A4& LDA A425 
O3F3 38 SEC 

O3F4 65 EA ADC EA 
O3F6 8D 25 A4 STA A425 
O3F9 90 DE BCC 03D9 
O3FB EE 26 A4' INC A426 
O3FE 90 D9I BCC 03D9 


- Submitted by 
Gebhard Brinkmann 
Koblenzer Str. 1. 
D-5401 Kaltengers 
West Germany 


SYM Tape Evaluation 


As a result of our telephone conversation on Monday, | decided 
to look for any possible hardware problems in the SYM Cassette 
Interface. Some results are shown below. Whether these are 
related to your cassette problems is unknown. In checking my 
Sony TC-62, | found an unexpected very slow acting AVC 
(increases gain very slowly, decreases rapidly). This could cause 
problems in a level sensitive system as the gain slowly increases 
during the recording process to a quite large degree. 


+ 3.0V 
+2.5V WAVEFORMA 
+2.0V 


+ 3.0V 
+2.5V WAVEFORM B 


+2.0V 


+ 3.0V 
+2.5V | | | WAVEFORM C 
+ 2.0V 

j “Q"’ i eq wt | “mq te 


740 usec 
wide 


All waveforms taken at PIN 3 of the LM311 (U26) with a sync 
tape generation program running (hi-speed). Audio OUt (HI) is 
connected directly to Audio In(A-P to A-L). 


WAVEFORM A is the normal condition as received (VIM 
80650912 E/C0003) 
WAVEFORM B is with C14 (.0047uF) removed 
WAVEFORM C is with C14 removed and C16(.01uF) paralled with 
1uF 


CONCLUSION: C16 is much too small and could easily cause 
the system to become marginal in the presence of noise and 
normal level variations. C14 has no apparent real value and 
seems to unnecessarily increase transition time uncertainty. 
The small value of C16 and the presence of C14 together 
simulate the waveform degradation of a very limited band- 
width recorder. Their effect augment rather than compensate for 
the deficiencies of a recorder. Suprisingly, it appears that it 
would be a recorder with poor low, rather than high, frequency 
response which would be most likely to have problems with C16 
is maintained at its original .01 microfarad value. 


Submitted by 
Don Lloyd 
101 Western Ave., Apt. 76 
Cambridge, Ma. 02139 


Comments on Synertek BASIC (8K) V1.1 
1) 2 ROM’s, U21, U22, COO0-DFFF, (J) (0) (CR to start BASIC 

2) Commands - CLEAR, LIST, NULL, RUNN, NEW CONT, LOAD 
“A”, SAVE “A” 

3) Statements - DATA, DEF, DIM, END FOR, GOTO, GOSUM, 
IF...GOTO, IF... THEN, INPUT, LET, NEXT, ON... 

GOSUM, POKE, PEEK, PRINT, READ, REM, 
RESTORE, RETURN, STOP, WAIT. 

4) Functions - ABS(X), INT(X), RND(X), SGN(X), SQR(X), TAB(I), 
USR(I, USR(IJ,...Z), EXP(X), FRE(X), LOG(X), 
POS(I), SPC(I) 

SIN(X), COS(X), TAN(X), ATN(X) all must be 
loaded separately - App Note 53-SSC not quite 
available. 

5) Strings - DIM A$, LET A$, INPUT X$, READ X$, PRINT X$ 

6) String Functions - ASC(X$), CHR&XI), FRE(X$), LEFT$(X$,1) 

LEN(X$), MIDS(X$,1), MIDS(X$,1,)), RIGHTS 
(X$,1), STRS(X), VAL(X$) 
7) Operators =,-,+, exponentiation,*,=, (notequal), , , 
(LTE), (GTE), NOT, AND, OR 

8) Uses Memory from 0200 HEX up until ROM or no memory, 

unless restricted at start up. 

9) Weaknesses - Only editing is delete line, delete last character 
(RUB-OUT), no ROM TRIG, no program merging 
capability. 

10) Strengths - Good array features (but no MAT functions), 9 

digit accuracy floating points 

4 byte floating point numbers 

7 bits + 1 bit sign exponent 

1 bit sign + 24 bit binary value (M$bit = 1 always) 

& “OOOF” = 15 decimal 

hex string conversion to decimal 

USR (1,},...Z) Machine language subroutine multiple 

parameters on stack result (A,Y) 

Speed is comparable to OSI Kilobaud Oct ‘77 ratings (1MHz) 
Overall subjective by infrequent BASIC user: 7.5/10 seems 
appropriate to overall product. 


Submitted by 
Don Lloyd 
101 Western Ave., Apt. 76 
Cambridge, Ma. 02139 


NOTE: Since this article was originally published, Synertek 
Systems has released the new SYSMON V1.1. It is available 
through your SYM dealer for $15.00 and may be used to update 
your old version system. New SYM-1 systems will come with 


the new monitor in place. 
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ASK THE DOCTOR - PART IV 
GOOD NEWS/BAD NEWS 


Robert M. Tripp, Ph.D. 
The COMPUTERIST, Inc. 
P.O. Box 3 
So. Chelmsford, MA 01824 


In last month’s issue | announced that Synertek Systems has infor- 
med me of an improvement to the SYM monitor which should solve 
the audio cassette sensitivity problem that | had mentioned in 
several columns. | have since received a copy of the new SYM-1 
Supermon Version 1.1 on a pair of EPROMs (which | had supplied to 
them) and have had some chance to evaluate the new version. The 
documentation | received was in the form of a two page letter. Not 
having the monitor listing limited by ability to fully evaluate the 
changes. 


The Good News 
According to the letter only two minor hardware changes are 
required in the cassette circuit. This are similar to some reported in- 
dependtly by other users and reported in an earlier column. “Change 
C16 to .22 microfarad” and “change R97 to 1K ohm”. 


This list of improvements that accompanied the V1.1 monitor, along 
with my comments appears below. (The Synertek notes are in bold 
face. My comments are normal type.) 


1. The improved High Speed Cassette read/write is significantly bet- 
ter than before. | was able to write and read quite constantly and 
was able to produce a tape on one type of recorder and read it on 
another. The volume/tone range was much wider. Whereas before 
you had to be right on for any chance of success, now you can have 
a reasonable variation in volume and tone and still get a good read. 
This is particularly important when you are using different recorders 
with different characteristics. The two recorders | tested with were a 
Superscope C-190 and a Pioneer Centrex. These fairly high quality 
recorders have not worked reliably with the old V1.0 monitor. A 
suggestion | had made to Synertek back in June 1978 was to make 
the leader time variable. While the 8 seconds they had built-in in 
V1.0 is acceptable when you are only occasionally storing a 
program, it was much to long if you intended to use the tape service 
to save small chunks of data - mailing list information for example. 
The above note says that the leader time is now maintained in ram 
and can be changed by the user if necessary. Since | did not have the 
listing or additional information, | was not able to test this out. But, 
assuming it does work, this can be a very significant improvement. 
some programs | have written require a lot of extra code simply to 
get around the “fixed” leader problem. They should be much sim- 
pler now, since | should be able to set the leader time in ram and 
then use the tape cassette routines directly. 


2. KIM read. Read routine improved. This has been one of the 
biggest problems for the SYM-1 since it release. The V1.0 monitor 
had a simple, but powerful, bug. It made an invalid test for the KIM 
format ‘‘end-of-data” character, and treated the legal 32 46 ASCII 
pair as an ASCII “/”, thereby terminating prematurely whenever it 
encountered a ‘‘2F” in the data. This made the KIM format mode of 
the SYM-1 essentially useless. This has been fixed in the new version. 
This means that it is now possible to distribute software, data bases, 
source files, etc. between the KIM-1, SYM-1 and AIM 65 using the 
common KIM format: 


3. Beeper frequency adjusted for maximum output. Ill take their 
word for this. [t does sound a little louder, but then | had never had 
any trouble with the beeper in V1.0 
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4. During the VERIFY command a BREAK key will stop printout 
without printing an error message. | didn’t test this minor im- 
provement, but it is nice fo keep error messages for real errors. 


5. BREAK key is looked for on current loop interface. If you are 
using a teletype device, it is handy to have the BREAK key work, so 
this change is definitely good. 


6. Log-on changed to SY1.1. Yes. 


7. After paper tape load the error message count is displayed. | do 
not have any paper tape facility to test this, but it is a minor im- 
provement. 


8. Ability to return to a higher lever program (left arrow).“! do not 
quite understand what this is supposed to mean, but I am sure when 
additional documentation is available it will make sense. 


9. Cassette file 1.D. displayed on left digit seven segments. This is 
both cute.and useful. They have simply taken the !D value and put it 
out on the leftmost digit. It does take a bit of deciphering though. 
The figure below shows the value of each segment ‘on the display. 
These must be separately read and then added together to get the 
file ID. It is useful when you are searching the tape for a particular 
tape ID. 


10. Unwrite-protect routine added to cassette logic. Again, | could 
not test this due to zero documentation. 


11. Register name improvement on display during R command. 
Hooray! Now the display shows the register name, not a “hard-to- 
remember-and-interpret” arbitrary number to identify which register 
you are examining. P for program counter; S for stack; F for flags; A 
for A register, to represent an X for the X register; and Y for the Y 
register. A simple but very nice improvement. 


12. Debug-on will not cause ram to be write protected. | did not test 
this, but it sounds reasonable. 


That’s the good news. 
The Bad News 


The bad news isn’t all that bad, but should be considered. First, the 
changes to the Supermon do move some code around and change 
some “internal” entry points. Although the Synertek programmer | 
talked to said that this was not going to be very important since the 
main entry points were not touched, | found the first program ! tried 
to run, the SYNC generator from the Reference Manual, would not 
work since two of the routines it requires have moved. How great a 
problem will this be? It is difficult to guess. | haven’t seen the listings 
and do not know what routines were changed and also do not know 
how often other programmers have used them directly. It will be a 
problem for anyone who is trying to make program for distribution 
since there may be a requirement for two versions - one for V1.0 and 
another for V1.1 - and this adds to the expense and can cause 
distribution problems. Hopefully, the number of routines affected is 
small and isn’t a big problem - but at present, ‘‘Who knows?”. 


Second, the V1.1 does use up some (most?, all?) of the Scratch Pad 
RAM in the System RAM. While this is not necessarily a big problem 
for future programs, it may cause problems for existing programs 
which use this previously available resource. Care will have to be 
taken when transferring programs from V1.0 to V1.1 to take this 
change in scratch pad availability into account. 


Third, Synertek does not seem to have a policy yet for how the new 
V1.1 will be distributed. They are still waiting for feedback from 
myself and a couple of other users before committing to ROM, so it 
will be some time before any of the V1.1 are available at all. Then 
there is the question of systems already in the field or on dealer's 
shelves. Will there be a reasonable “exchange” policy, say Syner- 
tek’s actual ROM production cost of $10-$15.00, or is some outlan- 
dish price going to be charged. | strongly feel that Synertek has the 
responsibility to offer the new V1.1 at the lowest price possible. Some 
of the changes they have made are not “cosmetic” or simple “‘im- 
provements”. They are basic “corrections” to their original 
“flawed” V1.0. 


SYM-1 Codes 


Ever wonder what the various codes were that the SYM used: key- 
code, ASCII code, and display code? You can look them up in the 
SYM manual in various places, but, why not let the SYM itself 
generate a display of these codes. The following program is an aid in 
establishing the relations between the three different codes. Start 
the program at 0000. The display goes blank, and when a key is 
depressed, the display will show key code, ASCII and display-scan 
code for a short time, and go blank again with a “beep”. 


Submitted by 
Jan Skov 
Majvaenget 7 
DK-6000 Kolding 
The Netherlands 


SYM-1 CODE DISPLAY 


JAN SKOV 
FEBRUARY 1979 
0000 ORG $0000 
SYM SUBROUTINES 
0000 ACCESS * $8B86 SYSTEM RAM ACCESS 
0000 SPACE * $8342 QUTPUT SPACE TO DISPLAY 
0000 INCHR * $8A1B INPUT CHARACTER 
0000 QUTCHR * $8A47 OUTPUT CHARACTER 
0000 OUTBYT * $82FA OUTPUT BYTE 
0000 SCAND * $8906 SCAN DISPLAY 
0000 BEEP * $8972 
0000 20 86 8B START JSR ACCESS 
0003 A2 06 LDXIM $06 
0005 20 42 83 LOOP JSR SPACE 
Q008 CA DE X 
0009 DO FA BNE LOOP 
OOOB 20 1B @A JSR = INCHR 
OOOE 85 EF STAZ $00EF 
0010 AI 2D LDAIM $2D 
0012 20 47 BA JSR CUTCHR 
0015 AS EF LDAZ $00EF 
0017 20 FA 82 JSR  OQUTBYT 
OO1A AD 42 AG LDA $A642 DISPLAY BUFFER 
001D 20 FA 82 JSR QUTBYT 
0020 A2 OB LDXIM $0B 
Q022 86 EE STXZ $00EE 
0024 86 ED STXZ $00ED 
0026 20 06 89 LOOQPA JSR SCAND DISPLAY AND 
0029 Cé ED DECZ $00ED TIMER LOOP 
002B DO F9 BNE LOOPA 
002D Cé EE DECZ $00EE 
OO02F DO F5 BNE  LOOPA 
0031 20 72 &9 JSR BEEP 
0034 4C 00 O00 JMP = START 
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A SIMPLE 24 HOUR CLOCK FOR THE AIM 65 


Marvin L. De Jong 
Department of Math-Physics 
The School of the Ozarks 
Point Lookout, MO 65726 


The program whose listings are given in the AIM 65 disassembly 
format is a 24 hour clock that displays the time in hours, minutes, 
and seconds on the six right-most digits of the 20 character AIM 65 
display. AIM 65 owners can load the program directly from the 
listings using the mini-assembler in the AIM 65 monitor. The 
program listings were taken directly from the thermal printer on the 
AIM65. 


The principal reason for writing the program was to experiment with 
the interval timers on the 6522 VIA. One advantage of the so-called 
T1 timer on the 6522 is that it can produce equally spaced interrup- 
ts, independent of the time necessary to complete an instruction 
and the time necessary to process the interrupt. SYM-1 owners may 
also use the program with only minor modifications, since the ad- 
dresses of the various registers and counters in the 6522 chips are the 
same for these two computers. SYM-1 owners will have to change 
the display routines, however. 


A brief description of the program follows. The first five instructions 
set up the interrupt vectors for the AIM 65. The next eight instruc- 
tions set up the 6522 VIA for the T1 timer in the free running mode, 
enable the 71 interrupt, and set the time interval to $C34E = 
49,99810 clock cycles. This number, plus the two clock cycles 
necessary to restart the timer, represent 50,000 clock cycles or 0.05 
seconds. Thus, the time between interrupts is exactly 50,000 clock 
cycles. Twenty interrupts give an interval of 10® clock cycles, or one 
second with a one MHz clock frequency. Location $0000 serves as 
register for the count-to-twenty interrupts process. It starts at $EC 
and advances to $00 before the seconds location is incremented. 


The interrupt routine from $0300 to $033C is very similar to the 
clock program by Charles Parsons in THE FIRST BOOK OF KIM. The 
only difference is that the timers do not need to be restarted in the 
interrupt routine. Only the interrupt flag needs to be cleared before 
returning from interrupt. This is accomplished by the LDA A004 in- 
struction at $0337. 


The program from $0226 to $0254 is the display routine from the 
AIM 65. First the seconds, minutes, and hours located in $0001, 
$0002, and $0003 respectively, are relocated, then converted to 
ASCH, and finally output to the display by the JSR EF7B. Many kinds 
of hex to ASCII routines are possible here. | simply rotated nibble af- 
ter nibble into the low order nibble of location $0004 and added $30 
to convert to ASCII. 


AIM 65 owners may be interested in the output routine. Of all the 
subroutines mentioned in the ‘User's Guide” the one | used is not 
mentioned directly. Basically it takes an ASCII! character in the ac- 
cumulator and outputs it to the display digit between $00 and $13 
(20 character display) identified by the contents of the X register. It 
also requires a one in bit seven of the accumulator. Otherwise you 
get the cursor. So | did a ORA $80 with the ASCII character in the 
accumulator before jumping to the subroutine at $EF7B. 


| checked the clock up against WWV and found it was off by about 
0.024%, which is substantial if you wish to keep time over the long 
term. | decreased the $4E byte location $0216 to $42 and now it 
appears to be off by only 0.00063%. Of course, these timing errors, 
though small, tend to accumulate giving an error of about 0.5 
seconds in 24 hours. 
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To start the timer, load the hours, minutes, and seconds locations 


with the time at which you intend to start, wait for this time, then. 


start the program. Of course, there are much more meaningful ap- 
plications to this program than simply displaying the time. One 
could record the time at which transistions on the I/O pins occur for 
example. Have fun. 
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24 HOUR AIM CLOCK 


BY MARVIN L. DE JONG 
FEBRUARY 1979 


ORG {0200 
START SEI SET INTERRUPT DISABLE 
LDAIM ¢00 SETUP INTERRUPT VECTCRS 
STA $A404 FOR 6522 
LDAIM $03 POINT TC ADDRESS C300 
STA $405 
LDAIM $CO = SETUP VIA 6522 FOR TIMER 1 
STA  $AOCE IN FREE RUNNING MCDE 
LDAIM $40 
STA  $AC0B 
LDAIM $4E SET LOW BYTE OF TIMER 
STA $AC06 
LDAIM $¢C3 SET HIGH BYTE OF TIMER 
STA $A005 
LDAIM $EC SET 2G INTERRUPT CCUNTER 
STA 0000 IN LOCATION coco 
CLI ENABLE INTERRUPTS 
BRK RETURN TO MONITOR 
NOP 
DISPLY LDA $000] MOVE DIGITS TO BE DISPLAYED 
STA $0004 FOR SAFE KEEPING 
LDA $0002 
STA $0005 
LDA $0003 
STA $0006 
LDXIM $13. LOAD DISPLAY POSITION POINTER 
LOOP = TXA PUT X VALUE INTC A 
PHA SAVE ON ‘STACK 
LDYIM $04 SET TC SHIFT FOUR POSITIONS 
LDA #0004 GET LEAST SIGN DIGIT REMAINING 
ANDIM ¢0F © MASK TG SINGLE CHARACTER 
CLC CLEAR 
ADCIM $30 CONVERT 0-9 TO ASCII C - 9 
ORAIM $80 BIT @0 MUST BE ON FCR AIM 
JSR ¢EF7B AIM CUTPUT ROUTINE 
SHIFT LSR $0006 SHIFT [0 GET HIGH HALF OF 
ROR $0005 DIGIT INTC POSITION 
ROR 0004 
DEY DECREMENT FOUR SHIFT COUNTER 
BNE SHIFT KEEP ON SHIFTING 
PLA RESTORE X FROM STACK 
TAX 
DEX DECREMENT POSITION POINTER 
CPXIM {OE TEST 6 DIGITS OUTPUT 
BCS LOOP MORE TO 00 
JMP  DISPLY DONE. NOW START CVER AGAIN. 


19 


24 HOUR CLCCK INTERRUPT SERVICE 


INTRPI 


NOTMIN 


04 AQ IDCNE 


LDAIM 
STA 


LCA 
CLD 
PLA 
RTI 


F030 


¢ooec 
IDONE 


eco) 
¢0] 
COC] 
¢é6C 
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COME HERE ON TIMER INTERRUPT 

SAVE A REG AND BUMP COUNTER IN 0CO0C 
DONE WITH INTERRUPT 

SET DECIMAL MCDE FCR CALCULATIONS 


BUMP ONE SECCNCD CCUNTER 
BY ADDING 1 WITH CARRY 
SAVE 

TEST SIXTY SECCNCS 

NCT A MINUTE 

A MINUTE 

ZERC SECCNC COUNTER 
THEN BUMP MINUTES 

GET MINUTES CCUNTER 

AND BUMP 

SAVE 

TEST HOUR 

NOT AN HOUR YET. 

AN HOUR, SC ZERC MINUTES 


THEN FIX HCURS 


TEST 24 HOURS 
NOT 24 HCURS 
AT 24 HOURS RESET TO ZERC 


RESET 20 INTERRUPT COUNTER 


RESTART TIMER BY READING 
CLEAR DECIMAL MCCE 
RESTCRE A REGISTER 
RETURN FRCM INTERRUPT 


AN AIM 65 USER’s NOTES 


Joe Burnett 
16492 E. Tennessee Avenue 
Aurora, CO 80012 


The AIM 65 Microcomputer, made by Rockwell, is one of the 
newest, most versatile home computers available today. At the 
time of this writing (January 1979), it sells for $375. For this you 
get the complete computer, with a 20 character alphanumeric 
display, full size alphanumeric keyboard, a printer which uses 
inexpensive calculator type paper, 1K of RAM and 8K ROM- 
resident programming. Options include the ability to add 3K more 
memory, a 4K assembler, and an 8K Basic interpreter, all on-board, 
simply by purchasing them and plugging them in. An 
“application” connector and an “expansion” connector accept 
standard 44 pin edge connectors, and allow the control and I/O of 
two cassette units and a teletype, as well as off-board additional 
memory. On-board programming (ROM-resident) gives you the 
ability to display memory in either hex or mnemonic, alter 
memory, edit programming, turn the printer on and off, display 
registers, and enter any of the many resident subroutines. With 
cassette units connected, you can read or write to either one, and 
set up the AIM 65 to handle KIM-1 format (X1 or X3) or the AIM 65 
format software. The AIM 65 will file and search cassette tapes, 
and the front panel alphanumeric display lets you know the status 
of the operation in progress as well as the block of data being read 
or written. Three keys on the keyboard (F1, F2, and F3) enable user 
defined functions through programmed jump instructions, and are 
a nice feature. Physically, the computer circuit board itself is 
ten inches deep by twelve inches wide, and the keyboard (which 
attaches through a supplied ribbon cable) is four inches deep by 
twelve inches wide. Included with the computer is a roll of paper 
for the printer, “feet” for the computer circuit board and the 
keyboard circuit, a User's Guide manual, an R6500 Programming 
manual, a System Hardware manual, a Programming Reference 
Card, an AIM 65 Summary Card, and a large schematic diagram, as 
well as the warranty card (don’t forget to mail this in). 


Software Compatibility 


As with any new product, there are some problems. One is with 
the KIM-1 software. The KIM-1 is a very basic computer, and the 
AIM 65 is sophisticated by comparison. An example of the 
problem with the software is the KIM-1 “PLEASE” program. 
“PLEASE” loads data into memory locations which either are 
dedicated for use by the AIM 65, or are not present in the AIM 65. 
Consequently, although the AIM 65 can be initialized to accept 
KIM-1 programming, check the listing before you try to do it. It'll 
save you a lot of time and frustration. The AIM 65 User’s Guide 
Manual includes a detailed memory map which you can use to 
determine (from a program listing) whether or not the program 
you're trying to load will in fact load as advertised. 


Some Cassette Control Problems 


A second problem is with the cassette unit control circuitry. There 
are actually two circuits in the AIM 65 for each cassette unit, and 
although Rockwell made an attempt to cover all eventualities, 
they. didn’t succeed. The first circuit makes use of an integrated 
circuit relay driver, which puts a low (ground) at the cassette 


control output pin of the “application” connector when the 
computer toggles the cassette unit “on”. The second circuit is a 
transistor switch which is biased on when the computer toggles the 
cassette unit “on”. The problem arises in that not all cassette units 
use a positive supply voltage with the negative line common 
(connected to the cassette unit frame). General Electric, for 
example, typically connects the positive side of the battery (or AC 
adapter) to the cassette unit frame, and uses negative voltage for 
the motor and electronic circuitry. At first glance, this doesn’t 
look like a problem; after all, you only need to supply a closure to 
the remote switch line, and the cassette unit will run, right? Well, 
not quite. ‘If you connect your GE cassette unit to the relay driver 
output pin, and the computer control has the cassette unit toggled 
“off”, the cassette unit won't shut off. This is because you’ve put a 
negative voltage (from the cassette unit) at a point which has a 
nearly equal positive voltage (from the AIM 65), and the result is 
close enough to zero volts that the cassette unit motor runs even 
though the computer indicated that an “off” condition exists. 
Okay, so what about the transistor switch? Figure 9-4 of the User's 
Guide manual shows how to connect the wires. And the cassette 
unit won't run. At this point you’re most likely very annoyed and 
confused (! know | was). The reason that the computer won’t 
control the cassette unit is that (1) figure 9-4 of the Users Guide 
Manual is in error; the positive voltage from the cassette unit 
battery should go to pin “F”, and the motor line should go to pin 
“BE”, of the “application” connector; and (2) the transistor does not 
have the voltages necessary to make it work, even after the wires 
are properly connected. If you look at the schematic diagram, 
you'll see that the transistor switch in the computer gets its 
operating voltage from the circuit it’s controlling. To make it work, 
the transistor must have the proper bias (voltage between base and 
omitter), and to get this a common ground must exist between the 
computer power supply and the cassette unit power supply. It 
would seem that all that would be necessary would be to connect 
the emitter of. the transistor (pin “F” of the “application” 
connector) to ground. Now the cassette unit will run and stop in 
response to computer control—until you plug in the ear and/or 
mic lines. When you do this, and the transistor turns on, you 
create a short circuit across the battery (or AC adapter) of the 
cassette unit. The reason is that when you wired up the ear/nuc 
lines, you connected one side to ground on the 44 pin edge 
connector, and now the current finds a path through the cassette 
electronic circuitry, and everything stops. Under normal 
conditions, the remote switch on the cassette unit microphone is 
isolated from everything, so no problem exists. When you make 
the return line to the remote switch and the ear/mic line return 
common, a short circuit occurs. So what do you do now? 
Simulate an isolated switch, similar to what the microphone has. 
A relay is the only way, if you’re going to control the cassette unit 
with the computer. Since my AIM 65 is still in the warranty period, 
| have not modified it as I’d like to. However, once the warranty 
period expires, I’m going to install two relays on the circuit board 
and use the transistor switches to control them. Then it won’t 
matter what kind of motor contro] the cassette unit uses; I'll have 
the isolated swi:h action required to control any cassette unit, 
regardless of the polarity of the voltages involved. 
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A Sample Program 


At the time of this writing, neither the Assembler nor the BASIC 
interpreter is available from my distributor. This means that any 
programming | do has to be done using mnemonic codes. 

Although the documentation in the User's Guide is very good, the 
sample programs shown appear to have been produced with the 
use of an Assembler. An example is on pages 7-82 and 7-83. This 
program is intended to display and print an assembled message, 
but the information on how to prepare the message for storage in 
memory is absent. So, if you input this program you'll be “ all 
dréssed up with nowhere to go”. The program shown below will 
allow you to input a message, and then retrieve it, all with the 
“bare bones” (1K RAM) AIM 65. How you use this is up to you. It 
could be just “for show”, or you can modify it as desired and 


include it in more complex routines involving user interaction with 
the computer. This program does feature single key access (user 
function key F1, F2, or F3). Key F1 allows you to write to memory; 
key F2 retrieves the entire message; and key F3 retrieves the 
message a line at a time, with the space bar being used to advance 
the display to the next tine of the message. The maximum length 
of the message is 13% lines. An asterisk is typed at the end of the 
message when it is written to memory, which takes the computer 
out of the loop in all of the modes. 

! hope the information in this article helps you avoid some of the 
problems and frustrations I’ve experienced. Enjoy your AIM 65. 
I'm having a lot of fun with mine, and I'm still learning what it’s 
capabilities are. 


WRITE TO MEMORY PROGRAM 


JOE BURNETT 


WITH MODS BY MIKE ROWE 


DUMP PRINT BUFFER 
CARRIAGE RETURN/LINE FEED 
INPUT FROM ANY DEVICE 
OUTPUT TO ANY DEVICE 


SPACE CHARACTER 
ASTERISK CHARACTER 


CLEAR DISPLAY 

INIT MEMORY POINTER 
INIT CHARACTER COUNTER 
GET AN INPUT CHARACTER 
STORE IN BUFFER 

TEST TERMINATOR 

IF YES, THEN DONE 

BUMP POINTER 

DECR CHARACTER COUNTER 
IF NOT ZERO, GET MORE 
LINE FULL, SO PRINT IT 
GET NEXT LINE 


CLEAR DISPLAY 
INIT MEMORY POINTER 

INIT CHARACTER COUNTER 

GET CHARACTER FROM MEMORY 

TEST FOR TERMINATOR 

IF YES, THEN DONE 

ELSE, DISPLAY CHARACTER 

BUMP MEMORY POINTER 

DECR. CHARACTER COUNTER 

IF NOT ZERO, GET NEXT CHARACTER 
ELSE, PRINT LINE 


APRIL 1979 
oo00 ORG $0000 
AIM SUBROUTINES 
0000 CRCK * $EA24 
oo0o CRLF * SE9FO 
0000 INALL * ¢£993 
0000 OUTALL * $E9BC 
ASCII CHARACTER 
0000 SPACE * $0020 
0000 ASTER * ¢$002A 
WRITE MESSAGE TO MEMORY 
qcoo 20 FO £9 WRITE JSR- CRLF 
0003 AO OO LDYIM $00 
0005 A2 13 LINE  LDXIM $13 
0007 20 93 E9 INPUT JSR _ INALL 
OO0A 99 OO 02 STAY $0200 
OOOD C9 2A CMPIM ASTER 
OOOF FQ 47 BEG EXIT 
0011 C8 INY 
0012 CA DEX 
0013 DO F2 BNE INPUT 
0015 20 24 EA JSR = CRCK 
0018 4C 05 00 IMP —— LINE 
READ ENTIRE MESSAGE 
001B 20 FO E9 REM JSR ~—s CRLF 
OO1F AO 00 LDYIM $00 
0020 A2 13 RLINE LDXIM ¢13 
0022 B9 00 02 RCHAR LDAY $0200 
0025 C9 2A CMPIM ASTER 
0027 FO 2F BEQ EXIT 
0029 20 BC E9 JSR = QUTALL 
002C C8 INY 
002D CA DEX 
OO2ZE DO F2 BNE §RCHAR 
0030 20 24 EA JSR = CRCK 
0033 4C 20 00 JMP = RLINE 


THEN CONTINUE 
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READ MESSAGE ONE LINE AT A TIME 


0036 20 FO E9 ONELIN JSR CRLF CLEAR DISPLAY 

0039 AO 00 LDYIM $00 INIT MEMORY POINTER 

OO3B A2 13 OLINE LDXIM $13 INIT CHARACTER COUNTER 
003D B9 00 02 OCHAR LDAY $0200 GET CHARACTER FROM MEMORY 
0040 C9 2A CMPIM ASTER TEST TERMINATOR 

0042 FO 14 BEQ EXIT IF YES, THEN DONE 

0044 20 BC E9 JSR QUTALL ELSE, PRINT CHARACTER 
0047 C8 INY BUMP MEMORY POINTER 

0048 CA DE X DECR CHARACTER COUNTER 
0049 DO F2 BNE OCHAR IF NOT ZERO, CONTINUE 
004B 20 93 E9 WAIT JSR  INALL ELSE WAIT FOR A SPACE 
OO4E C9 20 CMPIM SPACE FROM KAYBOARD TO CONTINUE - 
0050 DO F9 BNE WAIT NOT A SPACE 

0052 20 24 EA JSR CRCK SPACE, SO PRINT 

0055 4C 3B 00 JMP OLINE THEN GET NEXT LINE 


COMMON EXIT ROUTINE TO CLEAN UP 
THE DISPLAY AND RETURN TO MONITOR 


0058 20 FO £9 EXIT JSR CREF OUTPUT TO BLANK LINES 

005B 20 FO E9 JSR CRLF 

O0SE 00 BRK THEN EXIT TO MONITOR 
USER FUNCTION DEFINITIONS 

010C ORG  $010C 

010C 4C 00 0D JMP WRITE Fl TO WRITE MESSAGE 


O10F 4C 1B 00 JMP REM F2 TO READ ENTIRE MESSAGE 
0112 4C 36 00 JMP ONELIN F3 TO READ ONE LINE AT A TIME 
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Chris Sullivan 
9 Galsworthy Place 
Bucklands Beach 
Aukland, New Zealand 


The SYM-1 is a one board hobbyist computer 
Similiar to the KIM but with a number of 
additional features. Since buying the SYM-1 
I have had a great deal of fun playing a- 
round with both the software and hardware 
sides of it. The SYM-1 monitor, Supermon, is an 
incredible monitor in 4K ROM, some of it's sub- 
routines are called by the following progran. 


This program started off as a lesson in 
familiarity with the 6502 instruction set and 
using the Supermon subroutines to advantage, 
but the present version has been modified many 
times in order to increase the clock accuracy 
and, as my knowledge of the 6502 instruction set 
grows, increase coding efficiency. To use it 
one should start execution at :200. Then enter 
an "A" or “p" (Shift ASCII 5 0) to signify AM 
or PM. Then enter the hours (two digits), the 
program then outputs a space to separate the 
hours from the minutes. Finally enter 2 
digits to signify the minutes, the program will 
then increment the minutes by 1, and begin the 
clock sequence. This slight quirk makes it 
easier to set the clock using another clock, set 
up the "A" or "Pp", hours and first digit of the 
minutes, then enter the last digit of the 
minutes as the seconds counter of your setting 
clock reaches 0. 


There is another slight quirk in that the clock 
counts "All 59", "A12 00", "A12 O1", ...., 
"A12 59", "P01 00","PO1 01% ..... This simpli- 
fies the programming and means that 12:30 near 
midday is in fact, 12:30 AM according to this 
clock! However this is not likely to confuse 
many people. 


After setting up the initial time, the program 
adds 1 to the minutes and then carries on any 
carry into the hours, possibly changing "A" to 
"pt or vice versa. This section of the program 
could be made more efficient with full exploita- 


SYM-1 ELECTRONIC CLOCK 


tion of the 6502 instruction set. The last sec- 
tion in the program is a 1 minute delay. I have 
rewritten this section many times in a search 
for an accurate 1 minute delay. MThe first part 
is a double loop which also scans the clock dis- 
play, this loop takes about 59.8 seconds. The 
second part is a double loop to "tweak" the de- 
lay up to 60 seconds and consists of 2 delays 
using the onboard 6532 timer. This timer is in- 
itialised in 1 of 4 memory locations, specifying 
21024, +64, +8, or +1 timing, e.g., the location 
to write to if one wants +1024 timing is A417. 
This location thus initialised is counted down 
in the 6532. The program reads this value until 
it becomes negative, at which time the delay is 
over. 


Some improvements to the program could be made, 
for example better coding in the increment min- 
utes section. One could also add an alarm fea- 
ture, possibly using the on board beeper. The 
The section to update the time by one minute 
could be used as a part of a background real 
time clock, being called by a once-a-minute 
hardware interupt generated by an on board 6522 
timer chip. Once a minute, processing would be 
interupted for 100 cycles or so in order to up- 
date the real time clock. Such clocks have many 
uses, one of which is to ensure that certain 
number-crunching programs don't get tied down 
in big loops. 


This improved version occupies less RAM by using 
jumps to INBYTE rather than INCHAR and messy bit 
manipulations. The delay routine has been 
improved to use the on board 6532 timer, and 
also give greater resolution and hence greater 
timing accuracy. 


Editor's Note: This program is present primar- 
ily for its value in showing how to access the 
SYM's monitor for some of the routines. It is 
not an "optimal" program for a 24 hour clock, 
but should be a good starting point for owners 
of SYMs who wish to write similar programs. 


BY CHRIS SULLIVAN AUGUST 27, 1978 


ORG $0200 

SPACE #* $0020 
ACCESS * $8B86 
INCHAR * $8A1B 
INBYTE * $81D9 
OUTCHR * $8A47 
OUTBYT * $82FA 

0200 20 86 8B BEGIN JSR ACCESS 

0203 20 1B 8A JSR 

0206 85 00 STAZ $00 

0208 18 CLC 

0209 20 D9 81 JSR 

020C 85 01 STAZ $01 

O20E AQ 20 

0210 20 47 8A JSR 

0213 20 D9 81 JSR 

0216 85 02 STAZ $02 

0218 F8 SED 
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ASCII SPACE 


INCHAR GET A OR P 


INBYTE GET HOURS 
LDAIM SPACE SPACE CHARACTER 
OUTCHR OUTPUT A SPACE 
INBYTE GET MINUTES 


SET DECIMAL MODE FOR REMAINDER OF PROGRAM 


0219 
021A 
021C 
O21E 
0220 
0221 
0223 
0225 


0228 
022A 
022C 
022D 
022F 
0231 
0233 
0234 
0236 
0238 


023B 
023D 
023F 
0241 
0243 
0245 
0247 


0249. 


024C 
O24E 


0250 
0252 
0255 
0257 
025A 
025C 
025F 
0261 
0264 
0265 
0267 
0269 
026B 
026E 
026F 
0271 
0272 
0274 
0276 
0278 
027B 
027 
0280 
0281 
0283 
0284 


02 


02 


02 


8A 
82 
8A 
“82 


8A 


A4 
AY 


F3 
19 02 


HAVING SET THE INITIAL TIME (LESS 1 MINUTE) 
UPDATE THE TIME: 


TIMLOP 


TIMEX 


TIMEY 


TIMEZ 


NORSET 


WAITA 
WAITB 


WAITC 


WAITD 


CLC 
LDAZ 
ADCIM 
STAZ 
SEC 
SBCIM 
BEQ 
JMP 


LDAIM 
STAZ 
CLC 
LDAZ 
ADCIM 
STAZ 
SEC 
SBCIM 
BEQ 
JMP 


LDAIM 
STAZ 
LDAZ 
EORIM 
BEQ 
LDAIM 
STAZ 
JMP 
LDAIM 
STAZ 


LDAZ 
JSR 
LDAZ 
JSR 
LDAIM 
JSR 
LDAZ 
JSR 
CLD 
LDXIM 
LDYIM 
LDAIM 
JSR 
DEY 
BNE 
DEX 
BNE 
LDX1IM 
LDAIM 
STA 
LDA 
BPL 
DEX 
BNE 
SED 
JMP 


$02 
$01 
$02 


$60 
TIMEX 
NORSET 


$00 
$02 


$01 
$01 
$01 


$13 
TIMEY 
NORSET 


$01 
$01 
$00 
$50 
TIMEZ 
$50 
$00 
NORSET 
$41 
$00 


$00 
OUTCHR 
$01 
OUTBYT 
SPACE 
OUTCHR 
$02 
OUTBYT 


$CO 
$7D 
$01 
OUTCHR 


WAITB 


WAITA 
$02 
$4D 
$A417 
$A406 
WAITD 


WAITC 


TIMLOP 


GET MINUTES 
INCREMENT 
TEST IF NEW HOUR 


IF NOT A NEW HOUR 


SET MINUTES TO 00 


INCR HOURS 


TEST HOURS = 13 


YES, SET HOURS TO 1 
GET A OR P 
ASCII P 


IS 00 = ASCII P? 
NO, THEN SET 00 TO P 


YES, THEN SET 00 TO A 


GET A OR P 


GET HOURS 


GET MINUTES 


CLEAR DECIMAL MODE 

SETUP FOR ALMOST 60 SEC WAIT 
COUNTER 

NON-DISPLAYING CHARACTER 
REFRESH DISPLAY 


LOW ORDER COUNTER 
HIGH ORDER COUNTER 


TWEAK TIME UP TO 60 SECONDS 


DIVIDE BY 1024 TIMER 
REGISTER OF 6532 


VERIFY from 0200 thru 0286 is 356F. 


The following subroutines called form part of 
the SYM-1's SUPERMON monitor: 


ACCESS 
system RAM, 


Enables the user program to write to 
i.e. the RAM contained on the 6532. 


It is necessary to call ACCESS before calling 
most of the other system subroutines. 


INCHAR 


Get one ASCII charcter from the input 


device (here the hex keypad) and return with it 


in the A register. 


INBYTE Get two ASCII characters from the input 
device, using INCHAR and pack into a single byte 


in the A register. 


OUTCHR Output the ASCII data in the A register 
to the output device (here the six digit LED 
display). 


OUTBYT Convert the byte in the A register into 
two ASCII characters and output these to the 
output device. 


Location A417 is used to initialise the 6532 
timer to count down from the value stored in 
A417, with a divide by 1024 cycles. Thus the 
timer register on the 6532 is decremented by one 
every 1024 clock cycles. The timer register 
sits at location A406, and the time is consider- 
ed to be “up"™ when the value at A406 becomes 
negative. 
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SUPER HI-LO FOR THE SYM-1 


Jack Gieryic 
2041 138th Ave. N.W. 
Andover, MN 55303 


Super HI-Lo has a new twist to the game. This program fits into the 
standard 1K SYM and execution begins at location 200. The left 
two LED digits are your upper limit (initialized to 99) and the 
middle two digits are your lower limit (initialized to 00). SYM picks 
a random number and you attempt to guess it. Your attempt count 
is seen in the right two digits. The right digit will blink when it’s 
your last guess. 


After entering the command GO 200 CR press any key to start the 
contest. Enter your two digit guess (decimal only) and hit the “A” 
key. Win or loose you get an appropriate message at the end after 
which the LED’s go blank. Hit any key and you are ready for a 
second game. If you didn’t guess the number then you will be 
given one more chance in the next game. If you are lucky enough 
to guess the number then you will have one less chance the next 
game. 


For you SYMMERS who are interested in taking things one step 
further, you will find MESSAG an interesting subroutine you may 
want to incorporate in your own programs. This code is entirely 


SYM SUPER HI- 


JOHN GIERYIC 
APRIL 1979 


LO 


SYM REFERENCES 


relocatable except for the first four instructions which must be 
calculated if the code is moved. The routine uses page zero 
locations OD, OE, OF and 10, but you can change that too if 
necessary. The A and X registers contain the message buffer 
address per comments in the program. This message buffer 
contains segment codes which will light up any combination of 
LED segments. 


Refer to Figure 4-6 Keyboard/Display Schematic in your reference 
manual for the LED segments in the lower right corner. Segment 
“a” is turned on by setting bit 0 to a one in a message buffer entry. 
Segment “b” is controlled by bit 1 and so on with segments c, d, e, 
f, g and the decimal point. Thus a hex 5C is a lower case O 
(segments c, d, e, and g). Feel free to change either message but 
don’t forget to add a few OO characters at the start and end of 
your message. If you relocate the message buffer then change the 
register parameters prior to the cal] to MESSAG. 


One other note on the program. By changing the value at location 
206 you can alter the rate at which the right LED will blink when 
you reach your last chance. 


035E KYSTAT * $896A 
035E ACCESS * $¢8B86 
035E OUTBYT * ¢82FA 
035E SCAND * ¢8906 
035E KEYQ * $8923 
035E£ GETKEY * $88AF 
035E ASCNIB * $8275 
035E DISBUF * $A640 
035E RDIG * $A645 
MESSAGE POINTERS 
035E MFAIL * $0360 
035E MSUCC * $0380 
0000 ORG #0000 
0000 00 UPP ¢00 UPPER NUMBER 
0001 OO LOW = $00 LOWER NUMBER 
0002 00 ACNT = $00 ATTEMPT COUNT 
0003 OO RAN = $00 RANDOM NUMBER 2 - 98 
0004 OO TEMP = ¢€00 
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UGES 
TGES 
BLINK 
TDIG 
DARK 
LATT 
ONOF F 
BLIM 
COUNT 
LOOPA 
LOOPB 
CLIM 


BEGIN 


TILL 


INCRAN 


KEYIN 


LIMITS 


DISP 


ACCESS 


$60 


INCRAN 


OUTBYT 


SCAND 
KEYQ 
READK 
BLINK 
$01 
DISP 
ONOFF 
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GUESS UNITS 

GUESS TENS 

BLINK FLAG 1 = BLINK 

SAVE RDIG 

1 = DARK 

ATTEMPT LIMIT 

BLINKING 

BLINKING LCOP COUNT INIT. 


| 


, 


MESSAGE LIMIT 


PROGRAM ORIGIN 


INIT BLINKING LOOP LIMIT 


INIT ATTEMPT COUNTER 


INIT UPPER LIMIT 
INIT BLINK FLAG 


LOWER LIMIT 
ATTEMPT COUNT 


RANDOM NUMBER 

INCREMENT RANDOM NUMBER 
IF EQUAL 99 DECIMAL 
THEN RESET TO 2 

IS A KEY DOWN? 

LOOP UNTIL ONE IS DOWN 
PUT UPPER, LOWER AND 


ATTEMPT COUNT IN 
DISPLAY BUFFER 


LIGHT LED 
If KEY IS DOWN, 


IF BLINKING IS REQUESTED 


IF TIME TO TURN CHARACTER ON 


45 A6 


45 A6 


45 A6 


44 02 


AF 88 
75 82 


44 02 


E4 02 


B7 02 


RIGHT 


LCOUNT 


INCLOP 


READK 


SETLOP 


DECX 


ADUNIT 


ADUP 


RUP 


TLOW 


INCA 


INCLOP 
DARK 
$01 
RIGHT 
RDIG 
TDIG 
¢00 
RDIG 
DARK 
LCOUNT 
TDIG 
RDIG 
DARK 
BLIM 
ONOFF 
DISP 
ONOFF 
DISP 


GETKEY 
ASCNIB 
$0A 

SETLOP 


UGES 
TGES 


UGES 
DISP 


TGES 
¢00 


ADUNIT 


$OA 
DECX 
UGES 
RAN 
ADUP 
SUCEED 


TLOW 
UPP 
INCA 
UPP 
INCA 
LOW 
INCA 
LOW 
ACNT 
ACNT 
LATT 
TEST 
FAIL 
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IF TURN CHAR. OFF 


THEN GET CHARACTER 
SAVE IT 
SET RIGHT DIGIT BLANK 


SWITCH FLAG 


ELSE RESTORE RIGHT DIGIT 


SWITCH FLAG 
RESET LOOP COUNTER 


INCR. LOOP COUNTER 
LOOP 


GET DEPRESSED KEY 


IS IT "A" (ATTEMPT) 
YES 

NO 

MOVE PREVIOUS KEY 
TO TENS DIGIT 


PUT NEW KEY INTO UNITS 
LOOP 


SET LOCP INDEX (TENS) 
INIT A REGISTER 

CLEAR CARRY FALG 
DECR. X REG. 

IF NEG, THEN FINISHED 


ELSE ADD 10 

LOOP 

ADD UNITS VALUE 
COMPARE TO RANDOM 


GUESS = RANDOM 


REPLACE UPPER WITH GUESS 


REPLACE LOWER WITH GUESS 


INCR. ATTEMPT COUNT 
LIMIT REACHED? 


NO 
YES = FAILURE 


02C2 
02C3 
02C5 
02C7 
02C9 
02CB 
02CD 
O2CF 
02D1 
02D3 
02D5 


02D8 
O2DA 
02DC 
O2DE 
O02E1 


O2E4 
O2E6 
02E8 
O2EA 
O2ZED 


'04 


02 


03 
C2 


03 
02 


TEST SEC 


WAIT JMP 


FAIL INC 


SUCEED DEC 


LATT LAST ATTEMPT COMING UP 
ACNT 

$01 

WAIT NO 

BLINK YES - INIT FOR BLINKING 
BLIM 

ONOFF 

¢01 

DARK 

LIMITS GO WAIT FOR NEXT ATTEMPT 


LATT FAILURE = INCR ATTEMPT LIMIT 
MFAIL / MESSAGE HI BYTE 

MF AIL MESSAGE LO BYTE 

MESSAG DISPLAY FAILURE MESSAGE 

TILL RESTART HI-LO 


LATT SUCCESS = DECR ATTEMPT LIMIT 
MSUCC / MESSAGE HI BYTE 

MSUCC MESSAGE LO BYTE 

MESSAG DISPLAY SUCCESS MESSAGE 

TILL RESTART HI-LO 


SUBROUTINE HTDEC 


ENTRY JSR HTDEC 
THIS ROUTINE WILL CONVERT A HEX NUMBER 


TO DECIMAL. 


UPON ENTRY THE A REGISTER CONTAINS 


THE NUMBER TO CONVERT. UPON EXIT THE A REG. 
CONTAINS THE UNITS DIGIT AND THE X REGISTER 
CONTAINS THE TENS DIGIT. 


ORG $0300 
HTDEC LDXIM $00 INIT TENS COUNT 
SEC 
HTA SBCIM $0A SUBTRACT 10 DECIMAL 
BMI HTB 
INX INCR. TENS DIGIT 
BNE HTA 
HTB ADCIM $0A UNITS DIGIT 
STA TEMP 
TXA 
CLC 
ROLA 
ROLA 
ROLA 
ROLA 
ADC TEMP 
RTS 


SUBROUTINE MESSAG 
ENTRY JSR MESSAG 


THIS ROUTINE WILL PARADE THE MESSAGE SPECIFIED 

BY THE CALLER ACROSS THE LEDS. THE A REGISTER 
CONTAINS THE LO BYTE OF THE MESSAGE ADDRESS. THE 

X REG. CONTAINS THE HI BYTE OF THE MESSACE ADDRESS. 
THE FIRST BYTE OF THE MESSAGE CONTAINS THE NUMBER 


FF 
A6 


89 


OF BYTES IN THE MESSAGE MINUS 5. THIS COUNT 
INCLUDES THE FIRST BYTE 


MESSAG STA MAD = +01 CHANGE INSTRUCTION 
SIX MAD +02 
STA MADX 401 CHANGE INSTRUCTION 
STX MADX +02 
MAD LDA $FFFF ADDRESS WILL BE CHANGED 
STA CLIM 
LDAIM $00 
STA COUNT 
STA LOOPA 
STA LOOPB 
INC COUNT 
MESS LDY COUNT 
LDXIM $00 
MADX LDAY $FFFF ADDRESS WILL BE CHANGED 
STAX DISBUF 
INY 
INX 
CPXIM $06 
BNE  MADX 
INC COUNT 
MESSA JSR SCAND 
INC LOOPA 
BNE  MESSA 
INC LOOPB 
LDA LOOPB 
CMPIM $02 
BNE  MESSA 
LDA LOOPA 
STA LOOPB 
LDA COUNT 
CMP CLIM 
BNE MESS 
RTS 


THE FAILURE MESSAGE BEGINS AT LOCATION 0360. 
THE FIRST BYTE IS THE HEX NUMBER OF BYTES IN 
THE MESSAGE MINUS FIVE. THE MESSAGE IS IN THE 


FORM OF SEGMENT CODES. 


A MEMORY LISTING FOLLOWS. 


LOAD THIS BEGINNING AT LOCATION 0360. 


0360 OB OO OO 6E 3F 3E O00 38 SF SF 
0568 SF 3F 6D 79 00 O00 00 00 


THE SUCCESS MESSAGE BEGINS AT LOCATION 0380. 
0380 O08 00 00 39 5C 50 50 79 


0388 58 78 QO 00 00 


SYH-1 TAPE DIRECTORY 


John Gieryic 
2041 138th Avenue N.W. 
Andover, MN 55303 


The SYM-1's high speed tape format enables re- 
cording and loading of 1K of RAM in just a few 
seconds (185 bytes per second). This quick and 
easy means of saving and restoring memory will 
have you SYM-1 owners quickly wrapped up in 
tape. With the possibility of 254 ID's (01 thru 
FE) you may forget which ID's you've already 
used or where you stored a particular identifi- 
er. Maintaining records sometimes seems second- 
ary when you are eagerly pursuing an idea. 


This program will refresh your memory quickly. 
When DIRECTORY "finds" a tape record it will ex- 
tract the ID, startind address and ending ad- 
dress + 1. This information will be paraded 
across the LED's in much the same format used 
_when you saved the data on tape. The program 
will then continue its search for more records. 
The process is terminated by pressing the RST 
key. 


The first part of the program (locations 205 
thru 232) is taken from the monitor routine 
LOADT. Since this is not a subroutine (callable 
by a JSR), I had to copy the necessary logic 


into my program. The last part of the program 
makes extensive use of subroutine calls to two 
of my own subroutines and several of the moni- 
tor's. Any newcomers to programming should take 
time to trace through this in order to see the 
power of subroutines. ) 


SYM TAPE DIRECTORY 


High Speed Format Only: START: GO 200 CR 


TAPE FORMAT: 


256 Sync Char * ID SAL SAH EAL+1 EAH+1 


DATA / CKL CKH EOT EOT 


This program will extract the tape identifier 
(ID), the starting address (SAL and SAH), the 
ending address (EAL and EAH) and will "parade" 
this information on the LED's. The program will 
then go back to the tape and search for the next 
record. The program is terminated by pressing 
the RST key. 


SYM TAPE DIRECTORY 


SYM REFERENCES 


SCAND 
DISBUF 


DDRIN 
VIAACR 
LATCHL 
MODE 


ORG 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 


ID 
SAL 
SAH 
EAL 
EAH 
TEMP 
LCNT 
HCNT 
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$8B86 
$8DB6 
$8D82 
$8DDE 
$8E28 
$8DE2 
$89C1 
$8309 
$890B 
$A641 


$A002 
$A00B 
$A004 
$OOFD 
$0000 
$00 TAPE ID LOCATION 
$00 
$00 
$00 
$00 
$00 
$00 
$00 


LOW LOOP COUNTER 
HIGH LOOP COUNT 


0200 ORG $0200 PROGRAM ORIGIN 
0200 20 86 8B BEGIN JSR ACCESS ENABLE SYM PROTECTED MEMORY 
0203 AO 80 LDYIM $80 SET HIGH SPEED MODE 
0205 20 B6 8D JSR START INIT TAPE ROUTINES 
0208 AD 02 AO LDA  DDRIN 

020B 29 BF ANDIM $BF 

020D 8D 02 AO STA  DDRIN 

0210 AQ 00 LDAIM $00 

0212 8D OB AO STA VIAACR 

0215 AQ 1F LDAIM $1F SET UP TIMER 

0217 8D O4% AO STA  LATCHL 

021A 20 82 8D FIND JSR SYNC SEARCH TAPE FOR RECORD 
021D 20 DE 8D READ JSR  RDCHTX GET CHARACTER 

0220 C9 2A CMPIM '# COMPARE FOR ASTERISK 
0222 FO 06 BEQ TEST MATCH 

0224 C9 16 CMPIM $16 TEST SYNC CHAR 
0226 DO F2 BNE FIND 

0228 FO F3 BEQ READ 

O22A A5 FD TEST LDA MODE 

022C 29 BF ANDIM $BF 

022E 85 FD STA MODE 

0230 20 28 8E JSR RDBYTX GET ID 

0233 85 00 STA ID SAVE ID 

0235 20 28 8E JSR  RDBYTX GET SAL FROM TAPE 
0238 85 01 STA SAL SAVE 

023A 20 28 8E JSR RDBYTX GET SAH FROM TAPE 
023D 85 02 STA SAH SAVE 

023F 20 E2 8D JSR  RDBYTH GET EAL 

0242 85 03 STA EAL SAVE 

0244 20 E2 8D JSR RDBYTH GET EAH 

0247 85 O4 STA EAH SAVE 

0249 AQ 00 LDAIM $00 CLEAR OUT DISPLAY BUFFER 
O24B 8D 41 A6 STA  DISBUF 

O24E 8D 42 AG STA  DISBUF +01 

0251 8D 43 A6 STA  DISBUF +02 

0254 8D 44 A6 STA  DISBUF +03 

0257 8D 45 A6 STA DISBUF +04 

025A A5 00 LDA ID TAPE ID 

025C 20 96 02 JSR  DISPL SEND IT TO DISPLAY 
O25F AQ 2D LDAIM '- ASCII DASH 

0261 20 Ci 89 JSR  OUTDSP SEND IT TO DISPLAY 
0264 20 B5 02 JSR DELAY PAUSE 

0267 A5 02 LDA SAH START ADDRESS HIGH 
0269 20 96 02 JSR  DISPL SEND TO DISPLAY 
026C A5 01 LDA SAL START ADDRESS LOW 
026E 20 96 02 JSR  DISPL SEND TO DISPLAY 
0271 AQ 2D LDAIM '- DASH 

0273 20 C1 89 JSR  OUTDSP DISPLAY IT 

0276 20 B5 02 JSR DELAY PAUSE 

0279 A5 O4 LDA EAH END ADDRESS HIGH 
027B 20 96 02 JSR  DISPL 

O27E A5 03 LDA BAL END ADDRESS LOW 
0280 20 96 02 JSR  DISPL 
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0283 
0285 
0288 
028B 
028D 
0290 
0293 


0296 
0298 
0299 
029A 
029B 
029C 
029E 
O2A1 
O2A4 
O2A7 
O2A9 
O2AB 
O2AE 
02B1 
O2B4 


02B5 
02B7 
02B9 
02BB 
02BE 
02CO 
02C2 
02C4 
02C6 
02C8 
O2CA 


05 


00 
06 
07 
06 
05 
FQ 
07 
O7 
03 
FY 


89 
02 


89 
02 
02 


83 
89 
02 


83 
89 
02 


LDAIM 
JSR 
JSR 
LDAIM 
JSR 
JSR 
JMP 


$00 
OUTDSP 
DELAY 
$00 
OUTDSP 
DELAY 
BEGIN 


SUBROUTINE DISPL 


ADD 2 TRAILING BLANKS 


GO TD) NEXT RECORD ON TAPE 


ENTRY LDA (BINARY DATA) 
JSR DISPL 


THE UPPER FOUR BITS IN THE A REGISTER ARE 

CONVERTED TO THEIR ASCII EQUIVALENT, SENT 

TO THE DISPLAY VIA SUBROUTINE DELAY. NEXT 
THE PROCESS IS REPEATED WITH THE LOWER 


FOUR BITS. 


DISPL STA 
RORA 
RORA 
RORA 
RORA 
ANDIM 
JOR 
JSR 
JSR 
LDA 
ANDIM 
JSR 
JSR 
JSR 
RTS 


TEMP 


$OF 
NIBASC 
OUTDSP 
DELAY 
TEMP 
$0F 
NIBASC 
OUTDSP 
DELAY 


SUBROUTINE DELAY 


ENTRY JSR DELAY 


SAVE A REGISTER 
RIGHT JUSTIFY LEFT FOUR BITS 


MASK TO FOUR BITS 

CONVERT TO ASCII 

SEND TO DISPLAY 

PAUSE 

RESTORE A | 
MASK OFF TO LOWER FOUR BITS 
CONVERT TO ASCII 

SEND TO DISPLAY 

PAUSE 

RETURN 


THIS ROUTINE WILL CALL SCAND FOR A PERIOD 
OF TIME IN ORDER TO ILLUMINATE THE 6 LED'S 


DELAY LDAIM 
STA 
STA 

WAIT JSR 
INC 
BNE 
INC 
LDA 
CMPIM 
BNE 
RTS 


$00 
LCNT 
HCNT 
SCAND 
LCNT 
WAIT 
HCNT 
HCNT 
$03 
WAIT 


INIT LOOP COUNTERS 


SYM DISPLAY 


DELAY 


TEST COUNTER 


SYM-1 6522-BASED TIMER 


John Gieryic 
2041 138 Avenue, NW 
Andover, MN 55303 


Your SYM-1 comes with a number of timers capable of a wide 
range of timing intervals. Unfortunately the SYM REFERENCE 
MANUAL does not provide information which can easily be 
digested by a novice. I'd like to attempt a more down to earth 
description of timer 1 on the Versatile Interface Adapter 6522 for 
those of us who aren’t hardware inclinded. This timer is capable of 
very accurate time delays in the range of fractions of a second. It 
has an interrupt associated with it plus the ability to generate 
evenly spaced interrupts. 


Setting Up The Interrupts 


The first step in programming this timer is to place an address in 
the Interrupt Request Vector (IRQ) located at address A67E and 
A67F. A67E contains the low byte of the address and A67F contains 
the high byte. This address in the IRQ is the location you will be 
“ierked to” when the timer times down and generates an interrupt. 
Your code will. be as follows: 


Location Code 

200 20 86 8B JSRACCESS disable memory write protect 
203, A900 LDA #00 interrupt address 
205 8D 7E A6é STA AG6ZE Low byte 
208 A9 03 LDA #03 

20A 8D 7F A6 STA A67F High byte 


Our next step is to set two locations so the hardware can “see” the 
interrupt and tell us where it is coming from. These two locations 
are the Interrupt Flag Register [IFR] at location AOOD and the 
interrupt Enable Register [IER] at location AOOE. The IER controls 
interrupts from 7 different sources on the 6522. We will only be 
interested in bit 6. This is the one for our timer T1. We must set this 
bit to a logic 1. This tells the 6522 we will accept interupts from 
timer 11. The code follows: 


‘Location Code 
20D ASI CO LDA #CO 
20F 8D OE AO STA AOOE 


“Hey, wait a minute! Where did that ‘C’ come from? | thought you 
said we were only going to set bit 6?” 


Yes, | did. We must supply the 6522 with a bit more information 
(no pun intended). We must tell it we are going to SET one of the 
IER bits. This is done by setting bit 7 to a logic 1, hence our CO. 
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Note bits O thru 5 are a zero. This tells the 6522 we don’t want to 
change the condition of any of the other bits in the IER when we 
do our store. From this you should be able to see how we CLEAR 
any one of the SER bits. You guessed it. Bit 7 will be a logic zero 
and the §ER bit(s) to be cleared will be a logic 1. 


The Interrapt Flag Register [IFR] tells the user which interrupt has 
occurred (when we get one). This information can be used by the 
interrupt routine to “see” which element on the 6522 gave us the 
interrupt. We want to initialize (clear) our flag bit for timer T1 (bit 
6). | don’t want to disturb any of the other bits. Note clearing a bit 
in the 1FR is not the same as in the JER. 


Location Code 

212 AD OD AO tDA AOOD 
215 29° BF AND #BF 
217 8D OD AO STA AOOD 


When we do get an interrupt from any of the enabled 6522 devices 
(bit=1 in the IER) then bit 7 in the IFR and the corresponding bit 
in the IFR will both be set to a logic 1. We can determine if this 
interrupt came from the 6522 by just looking at bit 7 of the IFR 
(ASL followed by a test of the C bit). If bit 7 is a logic zero then the 
interrupt came from some other place. This will save some time 
when we are trying to find out where this interrupt originated. You 
should Jog this bit 7 information in the back of your mind since | 
won't use it here. 


Setting Up The Timer 


One more step before starting our timer. I’m going to set our timer 
to the free running mode. This means it will count down, give an 
interrupt and then immediately begin counting down again. | 
won't need to worry about instruction cycle times within any 
timing loops. | know 1 will get repeated interrupts at the exact 
interval requested. Setting the Auxiliary Control Register [ACR] bit 
7 to a logic 1 establishes the free running mode. 


Location Code 
21A AI CO LDA #CO 
21C 8D OB AC STA AOOB 


Now we have the four mechanical steps finished...setting up the 
IRQ, IFR, IER and ACR. Setting the time delay is next. The T1 timer 
has two latches (high and low order) and two counters (high and 
low order). This results in a 16 bit counter. The low order latch is 
loaded first. In this example | will set up for a delay of .05 seconds. 
This corresponds to a count of C350 (one count for each 
microsecond). 


Location Code 


LDA #50 load low order fatch 


STA A006 


21F A9 50 
221 8D-06 AO 


Now we will load the high order latch with the value C3. This 
instruction will do more than load the high order latch. It will also 
write the high order latch into the high order counter as well as 
write the low order latch into the low order counter. This one 
instruction will transfer all 16 bits from the latches to the counter 
at the same instant. Without this hardware assist we would be 
unable to load the counter accurately since the counter begins to 
count down immediately after being loaded. 


Location Code 
224 A9 C3 LDA #C3 load high order latch 
226 8D 05 AO STA A005 


The timer is now running and will generate an interrupt .05 
seconds (C350) later. This corresponds to 50,000 clock cycles. If 
you were programming a clock your remaining code at location 
229 would now initialize your hours, minutes. and seconds 
counters, initialize the display buffer and then go into a tight loop 
calling SCAND in order to illuminate the LED’s. 


Servicing The Interrupt 


Our interrupt routine at location 300 is now executed when we 
receive the interrupt. The first thing we must do is SAVE the 
processor status and registers. This is done so we can restore these 
items when we are finished with our interrupt processing and jump 
back into SCAND from where we were “jerked out.” 


Location Code 

300 08 PHP save processor status on stack 
301 48 PHA save accumulator on stack 
302 8A TXA transfer X to A 

303 48 PHA save X register on stack 

304 98 TYA transfer Y to A 

305 48 PHA save Y register on stack 


If you were programming a clock you would now increment a 
counter. If the counter equalled twenty then reset it and increment 
the time in the display buffer by one second. 


Now the interrupt is “serviced.” In order to clear the way for the 
next interrupt, the T1 interrupt flag must be reset otherwise the 
next interrupt will be blocked. This clearing can be done in either 
of two ways. Method 1 will write into the high order latch. This 
write uses a different address for the store instruction than the 
write used to initialize the timer counter. In doing this the T1 
interrupt flag will be reset but it will not disturb the current value 
in the counter. Remember this is a free running counter in our 
example and automatically resets itself when the interrupt 
occurred. By this point in time it has already counted down from 
its original value of C350 toward zero (and the next interrupt). 
Method 2 will read the low order counter. Either method will reset 
the T1 interrupt flag. 


Method 1 
Code 
AY C3 LDA #C3 
8D 07 AO STA A007 

Method 2 
Code 
AD 04 AQ — LDA A004 


Now the processor status and registers can be restored and a return 
executed to the location in SCAND at which the interrupt 
occurred. Remember you must restore the registers in the exact 
reverse order used at the entrance to the interrupt routine. This is a 
major point. 


Code 

68 PLA pull accumulator from stack 
A8 TAY transfer to Y index 

68 PLA ‘pull accumulator from stack 
AA TAX transfer to X index 

68 PLA pull accumulator from stack 

28 PLP pull processor status from stack 
40 RTI Return from Interrupt 


That's the end of the lesson for today. In a future article ! will use 
the information presented here to develop an operating system for 
your SYM-1. 


KIM-1 AS A DIGITAL VOLTMETER 


Joseph L. Powlette and Charles T. Wright 
Hall of Science, Moravian College 
Bethlehem, PA 18018 


Several programs have been described in the lit- 
erature which turn a KIM-1 microcomputer into a 
direct reading frequency counter. In "A Simple 
Frequency Counter Using the KIM-i" by Charles 
Husbands (MICRO, No. 3, Pp. 29-32, Feb/Mar,1978) 
and in “Here's a Way to Turn KIM Into a Freq- 
uency Counter" by Joe Laughter (KIM User's Note 
Issue 3, Jan, 1977), good use is made of KIM-1's 
interval timers and decimal mode to produce a 
useful laboratory instrument. A simple change 
in hardware will allow these same programs to 
serve as the basis of a direct reading digital 
voltmeter. This article describes an inexpen- 
sive voltage-to-frequency converter (VFC) cir- 
cuit which is compatible with these programs and 
also describes some software modifications which 
will allow Husbands’ program to operate down to 
low frequency (10 HZ) values. 


Hardware Configuration 


The VFC circuit is shown in Figure 1. The 4151 
chip is manufactured by Raytheon and is avail- 
able from Active Electronic Sales Corp., P.O. 
Box 1035, Framingham, MA 01701 for $5.00 or from 
Jameco Electronics, 1021 Howard Street, San 
Carlos, CA 94070 for $5.95. The circuit param- 
eters given in Figure 1 have been modified from 
the values suggested by the manufacturer in 
order to match the pulse requirement for the KIM 
IRQ signal. The frequency of the output pulse 
is proportional to the input voltage and the 1Ka 
(multiturn) trimpot is used to adjust the full- 
scale conversion so that 10 volts corresponds to 
a frequency of 10 KHz. It is not necessary to 
calibrate the KIM-1 as a frequency meter since 
any variation in its timing can be compensated 
for by the trimpot. A known potential is con- 
nected to the VFC input and the trimpot adjust- 
ed until the KIM readout agrees with the known 
voltage value. The linearity of the VFC is 
better than 1% down to 10 mv (linearity of 0.05% 
can be achieved in a "precision mode" which is 
described in the Raytheon literature). The 
circuit will not respond to negative voltages 
and protection of the chip is provided by the 
1N914 diode. If negative voltage readings are 
also required, the input to the VFC can be pre- 


+ 12V 


Voltage input 


0 to+!0V 
lOOK INSI4 


6.8K 
“[Lo.0033pt 


+12V 


Figure 1. 
circuit. 





ceded by an absolute value circuit (see IC OP- 
AMP cookbook by Jung, p. 193, Sams Pub.). 


To operate the system using Laughter's software 
the following connections should be made: 1) 


the output (pin 3) of the VFC to the PBO input 
of KIM (pin 9 on the application connector) and 
2) PB7 on the KIM to IRQ on the KIM (A-15 to E- 
4). Execution of the program should cause the 
voltage to flash on the KIM display in one sec- 
ond intervals. 


The software described in Husbands! article will 
not operate below 500 Hz. This limit is caused 
by the fact that the contents of the interval 
timer are read to determine if the 100 millisec- 
ond interval has elapsed and since the interval 
counter continues to count (at a 1T rate) after 
the interval has timed out, there are times when 
the contents of the interval timer are again 
positive. If the interrupt should sample during 
this time, the branch on minus instruction will 
not recognize that the interval has elapsed. 
This problem will manifest itself as a fluctuat- 
ing value in the display and is most likely to 
occur at low frequencies. One solution is to 
establish the interval timer in the interrupt 
mode and then allow the program to arbitrate the 
interrupt, i.e., to determine whether the inter- 
rupt was due to the input pulse or the expira- 
tion of the 100 millisecond interval timer. The 
necessary changes to Husbands’ program are given 
in Figure 2. The hardware connections are: 1) 
output of the VFC (pin 3) to the KIM TRQ (pin 4 
on the KIM expansion connector), and 2) PB7 on 
the KIM to Q on the KIM (A-15 to E-4). The 
modified program starts at 0004 with a clear 
interrupt instruction. Locations 17FE and 17FF 
should contain 21 00 and 17FA and 17FB should 
have values 00 10 (or 00 1C). 


TO PIN 6 
1K TRIM POT 


/ 


3.8K 


+5V 


frequency 
output 


Voltage-to-Frequency Converter (VFC) 
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Additional Comments 


The program modifications above will also extend 
Husbands’ frequency counter circuit down to 10 
Hz (corresponding to 1 input. interrupt in 100 
milliseconds). Since the 74121 monostable mul- 
tivibrator does not have an open collector 
output, PB7 should not be connected (along with 
the 74121 output) directly to the KIM IRQ. Two 
solutions are: 


1. Leave PB7 unconnected. The expir- 
ation of the 100 millisecond clock will 
be recognized on the next input interrupt 
after the timer has timed out. The int- 
erval timer will not interrupt the micro- 
processor, however. 


Connect PB/ to one input of a two input 
AND gate and the output of the monostable 
to the second input. The output of the 
AND gate should be connected to the KIM 
IRQ. The expiration of the 100 millisec- 
ond interval will now also interrupt the 
processor and will result in a faster 
response to a change in frequency values 
(from high to very low) as well as a more 
accurate low frequency count. 


The authors would like to thank Charles Husbands 
for taking the time to answer our questions and 
for pointing out the article by Laughter. 


ORG $ 0004 
0004 58 CLI clear interrupt flag 
0014 8D OF 17 STA clock in interrupt mode 
0024 AD 07 17 LDA read interrupt flag bit 7 
003C 8D OF 17 STA clock in interrupt mode 
Figure 2. Changes in Husbands’ program to ext- 


end the low frequency range to 10 Hz. 
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INSIDE THE KIM TTY SERVICE 
Ben Doutre 
621 Doyle Road 
Mont St-Hilaire, Quebec 
Canada J34 1M3 


The fact the KIM’s serial TTY port, plain and unmodified, will 
operate comfortable at 9600 bauds does not seem to be widely 
known. |, for one, went the parallel! interface route as soon as | 
acquired a higher speed terminal, and | suspect that many others 
may have done likewise. After all, what can one expect of an 
interface described in the User's Manual in these terms: “You are 
not restricted to units with specific bit rates (10 CPS for TTY) since 
the KIM-1 system automatically adjusts for a wide variety of data 
rates (10 CPS. 15 CPS. 30CPS. ETC.(.. “That’s pretty wide, alright, 
from 10 to etc. Other writers have been equally vague. Gary 
Tater in MICRO 9:14, “A Fast Talking TIM” mentions that “KIM 
can adapt to terminal frequencies up to 2400 baud...”. This was the 
last straw, and | either had to pull the plug on my “Fast Talking 
KIM”. or attempt to put the record straight 
First off, let me say that according to my interpretation of what 
goes on in KIM, the theoretical maximum baud rate of the TTY 
port is 15,625. How’s that for pinning down the etc? Not that you 
should try to operate at this rate without some of the well-known 
“fine tuning”, but there is no reason why you can’t hook up your 
9600 or 4800 baud terminal, with 30 cents worth of gates, and be 
up and running, with or without reading the following details. If 
you want to know from whence this bonanza, here is the story. 


The smarts for the KIM TTY interface are in the monitor software, 
so let’s start at that end. There are two main TTY |/O routines: 


GETCH at 1E5A and OUTCH at 1EAO. GETCH returns with the 
character in A but strips off the parity bit in the process. If you 
need bit 7 (counting from 0) for your own deep, dark reasons, then 
retrieve the full character from CHAR at OOFE on your return. 
OUTCH (love that label!) outputs a stop bit, then a start bit, then 8 
data bits (LSB first), then another stop bit. It may seem illogical to 
start with a stop, but remember that, aside from slow machinery, 
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the main purpose of a stop bit (line high) is to make sure that the 
start bit (line low) will be recognized. In any case, the stop 
interval is 2 bits long plus the delay between calls to OUTCH. 


Both GETCH and OUTCH are timed by subroutine DELAY at 
IED4. (GETCH also used DEHALF to move its strobe to the 
mid-point of a bit interval, but let’s not get technical.) DELAY does 
its thing based on the contents of a 16-bit counter named, for some 
obscure reason, CNTH30 (high byte, at 17F3) and CNTL30 
(low byte, 17F2). If this counter is equal to 0000 or less, DELAY 
falls through all the way, with a resulting minimum bit time of 
64us. (Let’s assume your crystal is bang-on 1 MHz.) Presto: devide 
64us into a million, and you come up with 15,625 baud. 


Not convinced? OK, here’s more. Every time we add one to the 
counter, DELAY adds another 14 us to its timing loop. The high 
end of the baud scale looks like this: 


Counter Bit Time (us) Baud Rate 
0000 64 15,625 
0001 78 12,820 
0002 92 10,869 
0003 106 9,434 
0004 120 8,333 


lf we turn this around and start with some of the usual standard 
baud rates, we can calculate the bit times and counter values 
required. For instance, 9600 bauds obviously needs something 
betweem 2 and 3. DELAY doesn’t do fractions - it doesn’t even like 
odd numbers. And how does the counter get properly loaded 
anyway’? 


We've left the best to the last, a little jewel called DETCPS at 1C2A. 
DETCPS is entered following a system reset with TTY enabled. Its 
brief hour of glory is in measuring the duration of the start pulse of 
the first character you feed in after a Reset. It quickly stuffs the 
results in the 16-bit counter, then goes out for coffee until the next 
Reset. The question is: will DETCPS buy 9600 bauds? The answer is 
YES. albeit a little reluctantly. The thing is the DETCPS is sampling 
the input port, waiting for the line to go low - it checks for this 
every 9 us, so it could miss your start pulse start by this much. 
Once the line is low, it squirrels away 14 us counts, checking for 
line high every 14 us. So it could miss the end of your start pulse 
by 14 us. 

At 10, 15, 30 or etc CPS, this sloppiness is probably acceptable. 
With a Model 33 on the line, DETCPS gaily reports 02C2 
plus/minus OB, for instance. But if it comes up with 0004 instead 
of 0003 at 9600 bauds, your TV screen will give you a reasonable 
facsimile of a Chinese fortune cookie slip. Just look at it as 
another Butterfield game - Reset-Delete-Reset-Delete-Reset-Delete 
BINGO! Anyway, how many times a day do you Reset? Once you 
get that 3, your link with KIM will be rock solid. 


There are a number of facinating details, but | will spare you 
the pyrotechnics. If all this is on the leve, | should be able to prove 
it, right? Well, | have an ESAT-100 (RHS Marketing) video board 
equipped with an AY3-1015 UART hooked up to the KIM TTY port. 
The manual admits to a -1% to DETCPS. | set the speed selector 
switch to each of the 6 rates avaiiable, did 10 resets at each and 
recorded the counts. (A clever piece of programming, at that!) 
Except for 9600, all resets were OK the first time around. The 
counts did not vary, except for 300 baud. The results look like this: 


Baud Rate Bit Time (us) Calc. Count §Meas’d Count 
9600 104.2 0003 0003 
4800 208.3 OO0A 000B 
2400 416.7 0019 OO1A 
1200 833.3 0037 0038 
600 1666.7 0072 0074 
300 3333.3 OOEA OOEC/O0ED 
+s KIM AePH 
CONN. 





(Fie 227) 
TTY KYSD 


ECHO = | 
seg \_-- TTY PTR A-v 
OUT N 


A few further words of explanation for the fellow who may be hung 
up because he has been spared intimate relations with “real” TTY 
machines. (You experts can go figure out an algorithm or two - try 
infinite recursion on “Every rule has an exception, except this 
one.”’) 


Referring to the KIM-1 User's Manual, Fig. 3.7, you will see two 
KYBD lines and two PTR lines. The action at the other end of these 
lines is assumed to be as follows: - During idle conditions, the 
keyboard lines are shorted out, generating a continuous high at the 
input to Q7; the printer lines are connected to a “selector magnet” 
(quaint) or a relay which is drawing a nominal 20 mA. -when the 
keyboard is sending characters, the KYBD lines are open-circuited 
for zero bits and shorted for one bits. When KIM sends characters 
on the PTR lines, it opens the circuit for zero bits by floating the 
output of O/C gate U26 (7438), and closes the circuit for one bits 
by pulling U26 to ground. Incidentally, this 7438 can sink up to 48 
mA. 

If you want to simulate this hardware with some other device, you 
need to feed the line labelled “TTY KYBD” with positive logic 
signals (low for ones, open for zeros) from the line labelled “TTY 


PTR”. You should note that the keyboard line has a 220-ohm pull 
down resistor on it, and that the printer line has no pull-up. 


You may also notice, if your terminal has a FDX/HDX selector 
switch or jumper, that the FDX no longer works as advertised. This 
is just KIM trying to be helpful, with a wired-in interconnect which 
echos received characters on the output line. If this keeps you 
awake at night, cut the trace between pin 11 and U15 and pin 10 of 
U26, and connect pin 10 of U26 to Vcc. (1 haven't tried it, but it 
should work. I’m a sound sleeper.) | 

If you need a for-example, | show a diagram of my own interface 
logic, based on a 7406 gate package, which is working quite 
satisfactorily. There are probably 1000 other ways of doing it, each 
one of which can be improved by SuperSilicon. If it works and 
doesn’t smoke, have at it. 


EN 


+58 










ESAT 
SER 
OuT 
OUTBRK 

ALL GATES Ofc 
+5 T4196 . 
Zak > 


ESAT 
SER 
IN 





KIMBASE 


Dr. Barry Tepperman 
25 St. Mary St., No. 411 
Toronto, Ontario M4Y 1R2 
Canada 


KIMBASE is an application program written in the 
6502 microprocessor machine language, designed 
to make use of the monitor subroutines and men- 
ory configuration of the KIM-1 microcomputer, 
for conversion of unsigned integers from one 
base to another. The input integer (designated 
NUMBER is to be no greater than 6 digits in len- 
gth; large 6-digit integers may cause overflow 
in the multiplication subroutines with consequ- 
ent errors in conversion. The base to be con- 
verted from (designated BASE1) and to be con- 
verted to (BASE2) are each in the range from 024 
to 104; the lower limit is set by mathematical 
reality and the upper by the limited enumer- 
ation available from the KIM-1 keypad. 


The program is started by placing NUMBER, lowest 
order byte last, in page zero 4C-4E, BASE1 (exp- 
ressed in hexadecimal) in 4A, and BASE2 (also in 
hexadecimal) in 4B. The program starts at 0200, 
and will light up the KIM-1 LED display with 
either an error message (according to an error 
flag stored in zero page 02, called ERROR), or 
a result display with the input data and a final 
result up to 18ydigits in length (RESULT stored 
in 03-0E) in successive segments in a format 
to be discussed below, or a combination of both 
displays, in an endless loop until the RS key is 
pressed. 


Program Function 


After initialization of data workspace, several 
tests of input data validity are conducted. 
KIMBASE recognizes four error states: 


a) NUMBER will remain same after conversion 
(i.e. NUMBER=00000x where x is less than either 
base). KIMBASE sets ERROR=01, RESULT=NUMBER, 
and shows both error and result displays. 


b) Either or both bases are outside the permis- 
sable limits of 02-104. KIMBASE resets bases 
under 02 to equal 02 and bases exceeding 10y to 
equal 104, and executes program to display res- 
ult without an error display. 


c) BASE1=BASE2. 
RESULT=NUMBER, 
plays. 


KIMBASE sets ERROR=02, 
and shows error and result dis- 


d) NUMBER enumeration is impermissable, as one 
or more digits =BASE1 (e.g., attempting NUM- 
BER=1C352A with BASE1=05). KIMBASE sets ERROR= 
03, shows error display, and aborts further exe- 
cution. 


Note that error states "a" and "c", above, are 
not mutually exclusive, and that KIMBASE sets 
the error flag ERROR and goes to the appropriate 
response routine after only one positive test. 
Errors are displayed as a continuous flashing 
LED readout “ErrorY" where Y=ERROR. 


KIMBASE - MAIN PROGRAM LISTING 


AKKAKKEKKAKKKEKK this section initializes 


CLD P2909 
LDX S#48& pl 
ZERO1 LDA S#99 93 
STA ARRAY,X 5 
DEX 7 
BNE ZERO] 98 
LDA S#@F GA 
STA MASK1 gc 
LDA S#F@ GE 
STA MASK2 1p 


Following the test routines, if BASE1#10y, KIM- 
BASE converts NUMBER into its hexadecimal equiv- 
alent by successive generation of powers of 
BASE1, multiplication of the appropriate power 
by the individual digits of NUMBER (remapped by 
masking and shifting into array N), and suc- 
cessive addition of all the hexadecimal prod- 
ucts. This intermediate result is placed in 
array HEXCON. A successive loop algorithm was 
used for multiplication rather than a shift-and- 
binary-add algorithm for economy of coding. 


HEXCON = ra N(x) * Base1‘¥~1) 


y=1-6 10 


This calculation is bypassed and NUMBER entered 
directly into HEXCON if BASE1=10,4. 


After the conversion to hexadecimal, if BASE2= 
104, KIMBASE sets RESULT=HEXCON and the result 
display is initiated. If BASE2410y4, HEXCON is 
converted into BASE2 by the common successive 
division procedure by BASE2 with mapping of renm- 
ainders through an intermediate array into 
RUSULT. 


Results are displayed on the KIM-1 6-digit dis- 
play as successive 1-second displays of NUMBER, 
BASE1 and BASE2, and RESULT divided into 6-digit 
segments, in the format: 


NNNNNN  (NUMBER1-NUMBER3) 
IIbb0O (II=BASE1; OO=BASE2) 
RRRRRR (RESULT1—RESULT3) 
RRRRRR  (RESULT4-RESULT6) 
RRRRRR  (RESULT7-RRSULTY) 
RRRRRR (RESULTA-RESULTC) 


which loops endlessly. Where ERROR=01 or 02, 
the error message precedes the result display, 
and loops endlessly in the display. 


All intermediate arrays and products have been 
retained in the zero page data workspace to fac- 
ilitate any debugging or further elaboration of 
the program that other users may find necessary. 


Users of non-KIM 6502-based microcomputers may 
implement KIMBASE easily with appropriate relo- 
cation of program and workspace (if necessary) 
and replacement of the display subroutines 
(SHOWER-TIMER1, SHORES-TIMER2) with appropriate 
machine-dependant output routines (or by BRK in- 
structions with manual interrogation of the ap- 
propriate arrays to determine output). 


data workspace and constants ****#***x*% 


D& select binary mode 

A2 48 set workspace byte counter 
Ag G99 

95 G1 zero common workspace 

CA decrement counter 

DO FI if #9 loop back 

Ao @F 

85 QF set MASK1=9F 

Ao FG 

85 if set MASK2=F@ 
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LDA s#95 12 A9 95 
STA PWR 14 85 gg set PWR=95 
LDX S#FF 16 A2 FF 
TXS 18 9A set stack pointer=FF 
KEKKEKKEKKAKAKAKE this section tests input data validity KHKKKKAKKKAAKRAKAAKKAKEKEKSE 
TSTINR LDA Ss#9¢ 19 Ao 99 TEST - ERROR STATE "a" 
CMP NUMBERI IB C5 4C NUMBER1=99? 
BNE TST1IBS 1D DG 14 no? go to next test 
CMP NUMBER2 IF C5 4D NUMBER2=99 ? 
BNE TSTI1BS 21 Dp I¢ no? go to next test 
LDA NUMBER3 23 A5 4E 
CMP BASE2 25 C5 4B NUMBER3€ BASE2? 
BCC CORR1 27 99 93 yes? go to correction routine 
JMP TSTIBS 29 4C 33 §@2 go to next test 
CORR1 LDA S#@1 2C A9 @1 
STA ERROR 2E 85 G2 set ERROR=91 
JMP CORR3A 39 4C 5A §@2 and jump to CORR3A 
TST1BS LDX s#92 33 A2 §2 TEST - ERROR STATE "b" 
TSTIB2 LDA BASE,X 35 B5 49 
CMP S$#@2 37 C9 g2 BASE (X) € 92? 
BCC CORR2A 39 99 GB yes? go to correction routine 
CMP $#11 3B co 11 BASE (X)> 11? 
BCC RESETI1 3D 99 OB no? bypass correction 
CORR2B LDA $#19¢ 3F Ag 41g 
STA BASE,X 4] 95 49 otherwise set BASE(X)=19 
JMP RESETI1 43 4C 4A §2 and bypass next correction 
CORR2A LDA $#92 46 AQ @2 
STA BASE,X 48 95 49 set BASE (X)=92 
RESET1 DEX 4A CA decrement loop counter 
BNE TST1B2 4B DG E8 and go back if #9 
TST2BS LDA BASE2 4D A5 4B TEST - ERROR STATE "c" 
CMP BASE] 4F C5 4A BASE2=BASE1 ? 
BEQ CORR3 51 FG 93 yes? go to correction routine 
JMP TST3BS 53 4C 6A @2 otherwise bypass 
CORR3 LDA Ss#92 56 AQ 2 
STA ERROR 58 85 g2 set ERROR=$2 
CORR3A LDX S#93 5A A2 @§3 
LDY $#9C 5C Ag gc 
CORR38 LDA NUMBER,X 5E B5 4B read NUMBER 
STA RESULT,Y 69 99 $2 GP into RESULT 
DEY 63 88 decrement counters 
DEX 64 CA eccccce eee aees 
BNE CORR3R 65 DG F7 and loop until complete 
JSR SHOWER 67 29 AP PP display error message 
TST3BS LDA BASEI1 GI6A A5 4A 
CMP sS#1¢ 6C co 1p BASE1=19? 
BCC TST2NR 6E 99 Pc no? go to next test 
LDX $#93 79 A2 @3 
HEXMAP LDA NUMBER,X 72 B5 4B yes? read NUMBER 
STA HEXCON,X 74 95 25 into HEXCON 
DEX 76 CA 
BNE HEXMAP 77 Dg FI for all 3 bytes 
JMP HEX1 79 4C I1F §3 and bypass hex conversion 
TST2NR LDA BASEl 7€¢ A5 4A TEST - ERROR STATE "d" 
STA BSTR1 7E 85 ll store BASEIl 
ASL ASL 8g GA QA 
ASL ASL 82 JA QA and left shift 4 bits 
STA BSTR2 84 85 2 to store BSTR2=(19*BASE1) 
LDY s#92 86 Ag $2 
TLP2 LDX S#93 8&8 A2 @3 
TLP1 LDA NUMBER,X 8A B5 4B isolate each digit NUMBER (X) 
AND MASK,Y 8C 39: §E G9 by masking 
CMP BSTR,Y 8F Do 1g GG and compare with BSTR 
BCC TRESET 92 99 g3 if less, reset loop 
JMP CORR4 94 4C AG 2 otherwise impermissable - correct 
TRESET DEX 97 CA decrement counter NUMBER 
BNE TLP1 98 DS FG and repeat for corresponding digits 
DEY 9A 88 decrement counter BSTR/MASK 
BNE TLP2 9B DJ EB and repeat for remaining digits 
JMP REMAP 9D 4C AZ (2 go to REMAP 
CORR4 LDA $#93 Ag AY @3 
STA ERROR A2 85 g2 set ERROR=@3 


JSR SHOWER A4 29 AY GY and display error message 


HAKAAAAKRELL*KK Chis section remapS NUMBER for conversion to hex *##**#AARRAAARRE 


REMAP 
REMAP1 


MASKS1 


REMAP2 


KHHAKKAAKKKAKAAKAEK 


HEXCNV 
LP1PWR 


RESET2 


RESET3 


RESET4 


RESET5 


RESET6 


EHKHKKKEKAKKKAEK 


HEX1 


LDX 
LDA 
STA 


BEQ 
BCC 


LDA 
CMP 
BCC 
LDY 
EDX 


S#P3 
NUMBER , X 
NHI ,X 
NLO,X 


REMAP1 
S#P3 

NHI ,X 
NHI ,X 
NHI ,X 
NHI ,X 
NLO,X 
MASK1 

NLO,X 


MASKS 1 
S#P1 
$#93 
NLO,X 
N,Y 


NHI ,X 
N,Y 


REMAP2 


A7 
AI 


A2 
B5 


93 
4B 
12 
15 


F7 
93 
12 
12 
12 
12 
15 
9F 
15 


EF 
gl 
g3 
15 
18 


12 
18 


Fl 


9p 


9p 


load NUMBER 
‘into NHI 

and into NLO 
loop until done 


right shift 
NHI 


isolate right digit NLO 

loop until done 

store NLO into N 
alternately 


with NHI 
and in inverse order 


loop until done 


this section converts N into hexadecima] *#*A#AHAAKAAKAEERAERKEKREERAE 


S#96 
PWRGEN 
N,Y 
$#91 
RESET3 
RESET5 
MULTP 


MULT 


S#93 

MULTC ,X 
HEXCON ,X 
HEXCON ,X 


RESET4 


HEX1 
PWR 
PWR 
S#P1 
RESET6 
LP1PWR 
N,Y 
MULTC3 
S#DD 
MULTC1 
MULTC2 
BASE1 
MULTP 
PWR 
SHOL 
RESET2 
RESET3 


92D8 
DA 
DD 


Eg 
E2 


9399 


Ag 
29 
B9 
c9 
Fg 
99 
85 
98 
48 
29 
68 
Ag 
18 
A2 
B5 
75 
95 
CA 
Dg 
88 
Fg 
C6 
A5 
C9 
Fg 
BY 
B9 
85 
Ag 
85 
85 
A5 
85 
AS 
cg 
Fg 
99 


96 
69 
18 
pl 
9B 
15 
1F 


89 


9p 
9g 


99 


0g 


for six places 
generate powers of BASE1 


N(Y)=91? 

if equal, go to RESET3 

if less, go to RESET5 

set MULTP=N(Y) 

put index Y into accumulator 
and push onto stack 
multiply power by N(Y) 

pull accumulator from stack 
and restore to Y 


add new product 
to intermediate product 
and store as intermediate product 


loop until done 

for next place 

if counter=@ bypass 

reduce power to be generated 


PWR=9 1? 
yes? go to RESET6 


greater? loop back to new conversion 


set MULTC=N(Y) 


set MULTP=BASE1 


PWR=91? 
yes? go to RESET2 
less? go to RESET3 


this section produces result from HEXCON when BASE2=19 *#**#44k44dRK 


BASE2 
S#19 
ZERO2 
S#IC 
S#G3 


IF 
21 
23 
25 
27 


A5 
C9 
99 
Ag 
A2 


4B 
19 
1g 
gc 
93 


41 


BASE2=19? 
no? go to ZERO2 


HEX2 LDA HEXCON,X 29 B5 25 store HEXCON 


STA RESULT,Y 2B 99 §2 G9 into RESULT 

DEY 2E 88 

DEX 2F CA 

BNE HEX2 39 D@ F7 loop until done 
JSR SHORES 32 29 96 G3 and display result 


HKEKAKKAEKAKKEKK this section divides HEXCON by BASE2 for crude conversion ***####*kR* 


ZERO2 STA DIVIS 9335 85 2C set DIVIS=BASE2 
LDX $S#93 37 A2 3 
LPIDIV LDA HEXCON,X 39 B5 25 load HEXCON 
STA DIVD,X 3B 95 28 into DIVD 
DEX 3D CA 
BNE LPI1DIV 3E Dg FY loop until done 
LDY $#18 49 Ag 18 for 18. places 
LP2DIV JSR DIVIDE 42 29 If G1 execute division 
LDA RDR 45 A5 39 load RDR 
STA RSTOR,Y 47 99 37 ~9 into RSTOR 
LDX S#G2 4A A2 2 
TST1OQO LDA QUO,X 4C B5 2C 
CMP $#@1 4E co fl QUO (1 or 2)291? 
BCS RESET7 5g BG @9 yes? go to RESET7 
DEX 52 CA 
BNE TST1QO 53 Dg F7 loop until done 
LDA QUO3 55 A5 2F 
CMP DIVIS 57 C5 2C QUO3=DIVIS? 
BCC ENDDIV 59 99 15 less? go to ENDDIV 
RESET7 LDX S$#93 5B A2 §@§3 
RST7A LDA QUO,X 5D B5 2C load QUO 
STA DIVD,X 5F 95 28 into DIVD 
LDA S#P¢ 61 AY §£9 
STA QUO,X 63 95 2C zero QUO 
DEX 65 CA 
BNE RST7A 66 DP F5 loop until done 
STA RDR 68 85 39 zero RDR 
DEY 6A 88 decrement place counter 
BEQ ENDV2 6B FG 99 if = go to ENDV2 
JMP LP2DIV 6D 4C 42 g3 otherwise back to divide routine 
ENDDIV DEY 7@ 88 decrement place counter 
LDA QUO3 71 A5 2F load QUO3 
STA RSTOR,Y 73 99 39 ~9 into next RSTOR slot 


AkkAARAKAAAARAK this section maps RSTOR into RESULT for final result ***AHAHAAKAKKAKA 


ENDV2 LDY s#gCc 76 Ag gc 
LDX $#18 78 A2 18 
CLC 7A 18 
REMAP3 DEX 7B CA 
LDA RSTOR,X 7C B5 30 left shift alternate bytes 
ASL ASL 7E GA QA RSTOR 4 bytes 
ASL ASL 8g QA @A eee ccceteooseses 
INX 82 E8 
ADC RSTOR,X 83 75 39 add to next byte RSTOR 
STA RESULT,Y 85 99 g2 GG and store as RESULT 
DEY 88 88 
DEX 89 CA 
DEX 8A CA 
BNE REMAP3 8B DY EE loop until done 
JSR SHORES 8D 26 98 @3 and display result 
1. PWRGEN 


. b . . . oe . . 
Subroutine to generate a by successive iterations of multiplication subroutine MULT 
with resetting of counters and intermediate products; allows unsigned binary or 
decimal arithmetic in 6592 instruction set; maximum result memory allocated 18, bits. 


Requires: subroutines: MULT IP89-G9GIB 


data arrays: BASE] {4A 
PWR POOP 
PWRS I9G1 
MULTP $91F 
MULTC (9929-9922 


Inapplicable to PWR=99,f1; calling program must test and bypass. 


PWRGEN LDA PWR JP69 A5 gg load power 


STA PWRS 62 85 gl store in counter 
DEC PWRS 64 C6 gl decrement counter 
LDA BASE 66 A5 4A 
STA MULTP 68 85 IF set multiplier=base 
STA MULTC3 6A 85 22 set multiplicand=base 
LDA $s#99 6C Ao ¢@¢ 
STA MULTCIL 6E 85 29 zero 2 high-order bytes 
STA MULTC2 79 85 21 of multiplicand 
TYA 72 98 transfer index Y to accumulator 
PHA 73 48 and onto stack 
MULTCL JSR MULT 74 20 89 PP jump to MULT 
DEC PWRS 77 C6 @1 decrement counter 
BNE MULTCL 79 DG FI if #9 return to MULTCL 
PLA 7B 68 pull accumulator from stack 
TAY 7C A& and restore to index Y 
RTS 7D 69 return to main program 


2. MULT 


Subroutine multiplies 24-bit number (MULTC) by 8-bit number (MULTP) to 
yield 24-bit final product (MULTC) by successive iterations of nested 
addition loops. Intermediate product storage in MIDPRO. Allows unsigned 
decimal or binary operation in 6592 instruction set. 


Requires : data arrays : MULTP GQG1F 
MULTC PF 29-GP22 
MIDPRO 9923-9925 


Inapplicable to MULTP less than 92; calling program to test and bypass 


MULT LDY MULTP PG8—O A@ 1F loop counter=multiplier 
DEY 82 88 decrement loop counter 
LDX $#93 83 A2 §3 set byte counter in loop 

REDIST LDA MULTC,X 85 B5 1F set intermediate register 
STA MIDPRO,X 87 95 22 =multiplier 
DEX B89 CA for each byte in array 
BNE REDIST 8A Dg FI loop until x=9 

ADLP2 LDX S#@3 8C A2 $3 set byte counter in loop 
CLC 8E 18 clear carry 

ADLP1l LDA MULTC,X 8F B5 I1F add multiplicand 
ADC MIDPRO,X 91 75 22 to intermediate product 
STA MULTC,X 93 95 IF store as new multiplicane 
DEX 95 CA for each byte in array 
BNE ADLP1 96 DY F7 loop until x=9 
DEY 98 8&8 decrement loop counter 
BNE ADLP2 99 DY Fi another loop if Y#9 
RTS 9B 69 return to main program 

3. DIVIDE 


Subroutine to divide 24-bit dividend (DIVD) by 8-bit divisor (DIVIS) to 

yield 24-bit quotient (QUO) and 8-bit remainder (RDR) by successive shift 

and subtraction processes; unsigned binary arithmetic only in 6592 instruction 
set. Intermediate quotient storage in QUO. Requires initialization of RDR 

and array QUO to @ by calling program, DIVIS#9@. 


Requires : data arrays : DIVD GPG29-PP2B 
DIVIS Pp2c 
Quo GP2D-PP2F 
RDR $939 
DIVIDE LDX S$#19 911g A2 19 load shift counter 
LOOPI1 ASL RDR 12 96 39 left shift remainder 
ASL QUO3 14 $6 2F left shift quotient LSB 
LOOPIA BCS HIQUO] 16 BY 28 go to incrementing routine 
if carry set 
ASL QUuU0o2 18 96 2E left shift quotient mid-byte 
BCS HIQUO2 1A BY 2F go to incrementing routine 


if carry set 
ASL QUO] ic g6 2D left shift quotient MSB 


LOOP2 


LOOP3 


LOOP4 


HIQUOL 


HIQUO2 


HIORD1 


HIORD2 


INCR 


FINIS 


CLC 
ASL 
BCS 


ASL 
BCS 


ASL 
BCS 


DEX 
BEQ 
SEC 
LDA 
SBC 
BMI 
STA 
ASL 
ASL 
INC 
JMP 
ASL 
INC 
BCS 


ASL 
JMP 
ASL 
INC 
JMP 
ASL 
INC 
BCS 


ASL 
JMP 


ASL 
INC 
JMP 
INC 
JMP 
LSR 
RTS 


DIVD3 
HIORDI1 


DIVD2 
HIORD2 


DIVD1 
INCR 


FINIS 


RDR 
DIVIS 
LOOPI 
RDR 
RDR 
QU03 
QUO03 
LOOPIA 
OU02 
QUO02 
HIQUO2 


Qu0ol 
LOOP2 
Quol 
Quol 
LOOP2 
DIVD2 
DIVD2 
HIORD2 


DIVD1 
LOOP3 


DIVD1 
DIVD1 
LOOP3 
RDR 
LOOP4 
RDR 


4. SHOWER & TIMERI1 


1F 96 2B 

21 BY. 2F 

23 96 2A 

25 BY 36 

27 96 29 

29 BY 39 

2B CA 

.2C FG 3B 

2E 38 

2F A5 39 

31 E5 2C 

33 39 DD 

35 85 39 

37 96 39 

39 96 2F 

3B E6 2F 

3D 4c 16 gl 

49 96 2E 

42 E6 2E 

44 BY @5 

46 96 2D 

48 4c IE Gl 

4B 96 2D 

4D E6 2D 

45 4C 1E Ql 

52 96 2A 

54 E6 2A 

56 BY 95 

58 G6 29 

5A 4C .29 g1 
$15D 96 29 

SF E6 29 

61 4C 29 Gl 

64 E6 39 

66 4C 2B G1 

69 46 39 

6B 6¢ 


clear carry 
left shift dividend LSB 
go to incrementing routine 
if carry set 
left shift dividend mid-byte 
go to incrementing routine 
if carry set 
left shift dividend MSB 
go to incrementing routine 
if carry set 
decrement shift counter 
jump to end if x=@ 
set carry 
from current remainder 
subtract divisor 
back to LOOPiI if negative 
store difference as remainder 
left shift remainder 
left shift quotient LSB 
increment quotient LSB 
and go back to LOOPIA 
left shift quotient mid-byte 
and increment it 
go to further incrementing 
routine if carry 
left shift quotient MSB 
and back to LOOP2 (if C=) 
left shift quotient MSB 
increment quotient MSB 
and back to LOOP2 
left shift dividend mid-byte 
increment dividend mid-byte 
go to further incrementing 
routine if carry 
left shift dividend MSB 
and back to LOOP3 (if C=9) 
left shift dividend MSB 
increment dividend MSB 
and back to LOOP3 
increment remainder 
and back to LOOP4 
right shift remainder to end 
return to main program 


Subroutines to generate error message for display on the KIM-1 6-digit LED readout 
by successive lighting of appropriate segments of the individual digits using a 
message lookup table. 


SHOWER requires: subroutines: 


SHOWER 


DISP2 


DISP1 


LDA 
STA 
BDA 
STA 
LDY 
LDX 
STY 
LDA 
STA 
JSR 
INY 


: data arrays: 


S#7F 
SADD 
S#IE 
SBDD 
S#G8 
S#95 
SBD 


MSGERR , X 


SAD 
TIMER] 


TIMER1 
SHORES 


SADD 
SBDD 
SAD 
SBD 
ERROR 
MSGERR 
MSGNUM 


DAG 
A2 
A5 


P9DE-PPED 
9399-9 3CF 


1741 
1743 
1749 
1742 
9992 
P9DE-PYDA 
P9DB-PPDD 


A9 7F 
8D 41 17 
AQ JE 
8D 43 17 
AG g@8 
A2 $5 
8C 42 17 
B5 D5 
8D 46 17 
29 DE g¢ 


timing loop for display 
result display for ERROR=@1 or 92 


monitor storage for readout 


set output directional vector A=7F 


set output directional vector B=l1E 
set digit selection counter 
set loop counter 
select digit 
select segments 
to be lit (from lookup table) 


and jump to timing loop 


C8 select next digit 


INY BA 
DEX BB 
BNE DISP1 BC 
LDA S#12 BE 
STA SBD Cg 
LDX ERROR c3 
LDA MSGNUM,X c5 
STA SAD C7 
JSR TIMER CA 
LDA ERROR CD 
CMP S#93 CF 
BEQ DISP2 D1 
JMP SHORES D3 


lookup tables: 


PDE 
YDB 


DG DC DP DP FI 
86 DB CF 


MSGERR 
MSGNUM 


Dp FG 
AQ 12 
8D 42 17 
A6 92 
B5 DA 
8D 46 17 
20 DE 99 
A5 §2 
co 93 
Fg D7 
4c 99 93 


TIMER] requires: interval timer location 1797 


TIMER] LDA $#FF JGDE 
STA 1797 Eg 
DELAY] NOP E3 
BIT 1797 E4 
BPL DELAY1 E7 
RTS E9 


5. SHORES & TIMER2 


A9 FF 

8D 97 17 
EA 

2c 97 17 
1g FA 

69 


decrement loop counter 
if #9 loop again 


for sixth digit 

set index to error flag 

and select segments 
to be lit (from lookup table) 
and jump to timing loop 


if ERROR=93 
loop same display again 
otherwise jump to show result 


set timer for approximately 
200 milliseconds per digit 
do nothing but light segments 
time up? 
no? keep lit 
yes? back to SHOWER for next digit 


Subroutines to generate result display on the KIM-1 6-digit LED readout by loading 
appropriate data into array DISP for display by KIM monitor subroutine SCANDS. 


SHORES requires: subroutines: TIMER2 


SHOWER 
: data arrays: ERROR 
RESULT 
BASE 
NUMBER 
DISP 
SHORES LDY S#@1 9399 
LDX S#93 92 
LOADN1 LDA NUMBER,X 94 
STA DISP,Y 96 
INY 99 
DEX 9A 
BNE LOADN1 9B 
JSR TIMER2 9D 
LDA BASE1 Ag 
STA POINTH A2 
LDA S#BB A4 
STA POINTL AG 
LDA BASE2 A& 
STA INH AA 
JSR TIMER2 AC 
LDX $# 91 AF 
LOADN3 LDY $#93 Bl 
LOADN2 LDA RESULT,X B3 
STA DISP,Y B5 
INX B& 
DEY B9 
BNE LOADN2 BA 
TXA BC 


9$3D9-93E5 
PPAP-9PD5 


I9G2 

9993-99GE 
JP4A-PP4B 
IP 4C-P94E 
J9FI-GOFA 


99 Fe gg 


26 DS G3 


29 DP G3 


99 F8 gp 


Dg F7 


timing loop for display 
error display for ERROR=91 or 92 


monitor storage for readout: 


QOFr9 INH 
OFA POINTL 
QOFB POINTH 


set index for DISP 
set index for NUMBER 
put NUMBER into DISP 


increment DISP index 

decrement NUMBER index 

loop until DISP is full 

and jump to timing/display loop 
load BASEL 

into two highest digits 

load BB 

into two middle digits 

load BASE2 

into two lowest digits 

and jump to timing/display loop 

set index for RESULT 
set index for DISP 
put RESULT (3 bytes at a time) 
into DISP 
increment RESULT index 
decrement DISP index 
loop until DISP is full 
put RESULT index into accumulator 


TIMER2 requires: subroutines: SCANDS 


TIMER2 


DSPN2 


DSPNI1 


PHA 
JSR 
PLA 
TAX 
CPX 
BCC 
LDA 
CMP 
BEQ 
JMP 


LDA 
STA 


LDA 
STA 
JSR 
BIT 
BPL 
DEC 
BNE 
RTS 


TIMER2 


S#9D 
LOADN3 
ERROR 
S#ID 
SHORES 
SHOWER 


data arrays: CTLP 


BD 
BE 
Cl 
C2 
C3 
C5 
C7 
C9 
CB 
CD 


Dg 


gD 
EA 
G2 
99 
C3 


Ag 


LIF1F 


9949 


interval timer location 1797 


HOS 
CTLP 


S#FF 
1797 
SCANDS 
17Q97 
DSPN1 
CTLP 
DSPN2 


J 3D9 
D2 


9 3D4 


Ag 
&5 


Ag 
8D 
29 
2c 
19 
C6 
Dg 
69 


g5 
49 


FF 
97 
IF 
97 
F8 
49 
EF 


46 


J3 


99 


L7 
IF 
17 


and push onto stack 

now jump to timing/display loop 
pull accumulator from stack 

and put in RESULT index X 
is X*#9C? 
if not, loop back to load DISP 
if yes, does ERROR=(@9? 


if yes, loop again for whole display 
otherwise show error | 


monitor display subroutine 


set loop counter 
set timer for maximum run 


and call display subroutine 

time up? 

no? maintain display 

decrement loop counter 

if #9, reset timer and maintain display 
otherwise back to SHORES for next entry 


LIFE FOR THE KIM-1 AND AN XITEX VIDEO BOARD 


Theodore E. Bridge 
54 Williamsburg Drive 
Springfield, MA 01108 


| have been very interested in the game of LIFE ever since | read 
Martin Gardiner’s “Recreational Mathematics” section in the 
Scientific American - Oct. Nov., 1970. Naturally, | was very much 
interested in Dr. Frank Covitz’ excellent article that appeared on 
page 5:5 pf the June-July issue of MICRO, 1978. 


Just as soon as | got my XITEX video board working on my KIM-1 
(16 K on a KIMS! mother board), | attempted to put the Covitz 
program on my machine. Because the display feature of the XITEX 
video board is so different from the PET, | thought it was necessary 
to write a completely new program. | think there may be other 
KIM-1 users who would like to try my version of this fascinating 
game. 


John Conway invented the game of LIFE. | like to think of it as a 
simulation of a virus growing on the surface of a POND of DNA. 
Therefore, | call the work area in which births and deaths are 
recorded, the POND. ! have a routine SHOALL that will display the 
POND on the screen. | have another routine DISPLY that will add a 
cell to the screen when a new one is born, and will remove one 
that is about to die. The POND is updated after each generation in 
UPDATE. The routine NBRS will record the number of neighbors 
for a given cell in variable NN. In the pond, zero represents a 
nonliving cel; (1) represents a living cell; (-1) represents a cell that 
is about to be born; and (2) represents one that is about to die. 


It would take about a second to sweep the entire POND looking 
for births and deaths, but it takes 1/6 seconds to process a birth or 
a death. The POND is a matrix 16 x 64. In the routine EDGE, the 
POND is edged with zeroes to prevent WRAP-AROUND that 
would destroy symetry in a life form. According to Conway’s rules: 
1 A new cell is born in an empty cell having 3 neighbors. 


2 Any living cell having less than two, or more than three 
neighbors will die. 


3 All deaths and births occur at the same time. A new cell will 
not be counted as a neighbor until after all cells have been 
processed. 


The POND may be relocated on another page by putting the page 
number at address $2004. Sixty four ($40) bytes must be reserved 
immediately before and after the POND for edging with zeroes. 


START THE PROGRAM AT $2000 


The routine PLANT will put a live cell in the center of the screen, 
and ask for coordinates V , H for other cells, measured from the 
center. V is the line number (t is down and - is up). H is the 
column number ( t¢ is right and - is left). Both V and H must be in 
the range: minus 7 to plus 7. The sign must follow the digit 
entered, but a space may be substituted for the plus sign. The 
following entries will establish a blinker in mid screen. 


ENTER V,H ? 1-,0t 0 
ENTER V,H? 1t,0t 
ENTER V,H 2 / 0 


© 


The slash (/) above will terminate the data and start the program. 


A generation count is displayed in the upper left corner of the 
screen. The computer will enter a break if there are no births and 
no deaths in any generation. To return to the monitor, you will 
need to insert $1€00 in the IRQ vector. — 17FE 00, and in 17FF 1C. 


If your video board uses different commands for positioning the 
cursor, you will need to change the routine DISPLY. The XITEX 
board uses the following commands. 


Key Hex 
Code 
ESC $1B invokes coordiante mode 
's $3D invokes absolute addressing 


my" BINARY ROW NUMBER - from top 

as bi BINARY COLUMN NUMBER - from left 
(add $40 if less than $20) 
will display a zero 

will overwrite a cell with 
a space 


'0 $30 
' $20 


If you have a highspeed video board, you 
might wish to reform the entire display 
after each generation with this patch: 


change Address $204F from EC to &9 
change Address $2271 from 48 to 60 


An article by David J. Buckingham in the Dec 1978 issue of BYTE, 
on page 54 gives a great many life forms that you might like to try 
with this program. 


For practice on inputting data, you might like to try the following 
life forms given by John Gardner in the Oct.-Nov. 1970 issue of the 
SCIENTIFIC AMERICAN. 


000 0+ 1+ 
0 O+ C+ 
1+ 0 
Beehive 


This fellow lives for four generations and becomes stable in a form 
called a beehive. 


000 000 


00 0 QO 
0 oft 000 000 
+ OF 0 0000 0 
00 00: 
Traffic Light 0 0 00 0 
After 10 generations, this fellow becomes a blinking traffic light. ° 0 0 ° ” 
00 00 
000 0+ 1+ 0 00 00 0O 
0 O+ 2+ 000 0 00 
0 1+ 0+ 0 0 0 90 
2+ I+ 000 000 
Figure 1 
Glider This is SPACEMAN after 18 generations. He will soon bump his 


head on the ceiling just before his feet touch the floor. This will 
throw him out of symmetry. After generation 33, he will begin to 


This glider floats up the pond. When he hits the ceiling, he turns aoe 
contract to the form displayed in figure 2. 


into a stable block of four living cells. 


00 00 
0 0 
0000 0+ 1+ 0 0 0 O 
0 0 0+ 2+ 000 000 
0 O+ 3+ Figure 2 
1+ N+ This is SPACEMAN after 75 generations. This is his minimum size. 
1+ O+ He will now grow and then later contract again. | have only 
2+ 0+ followed his history through 150 generations. 
3+ 1+ 
Spaceship 


This spaceship travels across the pond colliding with the left edge 
after 10 generations. He then shoots a glider down. 


0 0 2- o- 
0 0 2- o+ 
000 |= 2- 
0 0 1- 2+ 
0 0 O+ l= 
0+ 1+ 
1+ 2- 
1+ o+ 
o+ e=- 
C+ o+ 
Spaceman 





This life form was first tried by Bob Borg. See figures 1 and 2 for the 
history of this interesting life form. Johnson lost his microprocessor again 


If we turn spaceman sideways, he bumps the ceiling after 13 

generations losing partial symmetry. He regains symmetry after by: Bertha B. Kogut 
generation 94. After generation 111, he turns into 2 beehives and 

four blinkers. 


CE 
23 


; AC 2F 2e 


1E 


LE 


CONAY'S CAME OF LIFE 


LIFE ORG E2CEE 
JMF START 
CATA = EZE 
= $22 
ALLOV $46 EYTES EEFOFE AND 
FFTER FOND FOR VFAF-AFCUINDE. 
POND IS 1° K EYTES LONG 
= EC@ FON 
= $51 
= £O@ LAS 
= $56 
= SLA UL OFFSET 
= $@1 UP 
= Ge GE 
= $4¢ LEFT 
= $4e 
= $86 LL 
= $8 1 DO EN 
= GEC LF 
FONDTL x EZEIC 
PONTH * $@¢ 10 
FON * SFE1E 
LAS * SELES 
OFFSET * $EECE 
LAST * EGETZEF. 
ALF * $EEZEC 
V * $EE2E 
H x S$@GEF 
CNT * $2CIE COUN T 
NN 2K SEES) 
LFLAG * $EC3C LIFE FLAG 
SELVY * GEFSS 
FOINTL * SEG24 
FOINTH x SEESS 
FOINT x SEE 36 
GL * LEE3SE 
GH * SFE39 
KIM FOUTINES 
FRETEYT JMF ELESE 
GETCH STY SAVY 
JSF. S1ESA 
LDY SAVY 
ETS 
CELF LUAIM $¢L 
J&OF OUTGCH 
LUAIM §¢£4 
OUTCH STY SAVY 
JEOF §1LEA 
LIY S&VY 
ETS 


FIRST ADDRESS 


IN FOND 


FIEST ADDFESS IN FOND 


CATA WILL BE MOVED HERE 


FOINTS TO LAST 


ALLE. 


IN POND 


(CPOINT-FONEZ) =($408%V + HD? 


VEFTICAL ORDINATE 


NUMEEF GF NEIGHEORS 


2625 
eg2D 
eer 
2¢31 
2034 
2637 
EGA 
2@3D 
eae 
2E42 
e@A& 
e@A7 
egak 
20aD 


OG4F 


e@S] 
2ees5e 
2e@5e 
2¢Ss5 
c@58 
2eSA 
2@SE 
2e@SD 
ESE 
206¢ 
2862 
2664 
266 
2868 
el6h 
efeéc 
c@6E 
272 
e@7e 
ce74 
2076 


eG77 
Ze79 
2@7h 
cBT7E 
ees? 
<¢6 1 
283 


eg8s. 


El86 
238 
e@BF 


ef8E 


ed 


EEGIN 


START 


STAKE 


MOVZ 


HERE 


LDYIM 
STY 
STY 
JSF 
JSP 


INC 
ETS 


CALC V & H 


CALCVH LEX 


CAL 


CALC ADF = 


CLCACR 


CEC 


PON DL 
$C@ 
LAST 
PON DH 
$63 
LAST 
FON DH 
PON 
PON 
LAST 
LAS 
L&AS 


MOVE DATA TO ZERO PAGE 


SEED IN POND 
OF FOND ON TUBE 
INCRE. GENER. COUNT 


ZERO LIVING FLAG 

FOND WITH ZEROES 
BIRTHS & DEATHS 
THF PONDL 


YESe CHECK NEXT GENERATION 


CET A DATA WORD 
FUT IN PAGE ZERO 


+62 


POND - $42 
PON D K A 
R E 
0 R 
LAST & & 
+@1 LAST +464 
+ Gl 
+@1 
+@1 
+@1 
+61 


FROM ADDRESS IN ADF 


ADF 
ADR 
CAL 


FOINT - 


+O 1 


- 62 


-@e 


FEMAINCDER IN H 


PONE 


2esc 
e@BE 
229 @ 
2e9e 
2694 
2696 
2698 


299 
2e9C 
ceLOE 
CGA 
2GAl 
e@As 
2@AS 
2GAT 
eZAags 
eC hF 


2GAC 


2CAE 


2CAF 
2BE2 
2éBs 
EGET 
2GB9 
2@EE 
etED 
2@BF 
2e6c! 
e€Ca 
2¢Cs5 
2aci7 
2eéC9 
2@CE 
e@CD 
2eeceE 
e@Le 
erte 
e@la 
ERDE 
2eéDs 
e@ BE 
e@DD 
e@LUr 
c@EIl 
CZES 
eZES 
2GE8 
CCEA 


21 
28 


ee 


SET NN 


LDA 
SEC 
STA 
LDA 
SBC 
STA 
RTS 


= NQ. 


&T FOINT. 


NERS 


N BF 


NE 


POST 


POST 


FOSTA 


CEATH 


EIPTH 


JSF 
LDUXIM 


BIRTHS 


JSR 
JSF 
LDA 
CMPIM 
EMI 
CMPIM 
EEG 
BFL 
JSF 
SEC 
LDA 
SEC 
CMPIM 
EMI 
ETS 
LDATY 
EEG 
LLAIMN 
STALY 
LDAIM 
JMP 
LD&LY 
EW E 
LDAIM 
STAITY 
LUAIM 
JSE 
ING 
JMP 


POINTL 


PON DL 
ADR 


POINTH 


PON DH 
ADR 


OF NEIGHEORS FOR CELL 


MOV 
$07 


OFFSET 


POINT 
NE 
NE 
NN 


NER 
SHE 


& DEATHS 


MOVE 
NERS 
NN 
$22 
DEATH 
$83 
BIRTH 
DEATH 
INCFT 


POINTH 


PON DH 
$24 
POST 


POINTL 


FOSTA 
$O2 


POINTL 


tel 


BIETHS 
POINTL 


POSTA 
SFF 


FOINTL 


°¢ 


DI SFLY 


LFLAG 
FOSTA 


51 


NOW 


+6} 


NOT &A NEI GHEOF 


CONTINUE 


BIRTH 


ALIVE 


-1 


=+ j 


VILL DIE 


IF < 2 


IF = 


IF > 3 
INCREMENT FOINT 


3 


+73 NOT YET DONE WITH THIS CELL 
WE AFE CONE WITH IT 


CZED 18 CONVI CLC 
C@EE 65 OF ADC H 
2@Feé &5 e@ STA ADR 
cEFe Of Fe ECC CONVH -1 
c@F4 EG E INC ALE +€1 
2EF6 6¢ RTS 
CONVERT H & V TO EQUIV. ADDR. 
OVF7 AG 2E CONVH LDX V 
cGFO AB @E LUYIM S$8€ 
CAFE 84 eC STY ADR 
e@FL 4 eL sTY £DA +2) CLEAR ADR 
CGFF CA CONV DEX 
€1@8 3@ FE EMI CON VI 
elge 18 CLC 
€123 AD 4 LLAIM $42 
21¢@5 65 eC ADC ADF: 
21¢7 85 € STA ADF. 
2elgo 9 F4 ECC CON V 
elg€E £6 2D INC ADR +£1 
elG@D 4C FF 2¢ JMP CONV 
ASK FOF WV,H 
2li¢ ec€ 10 2€@ ENTEVH JSF CRLF 
ells &£2 @E LOUXIM CE 
2115 BD IF ¢& LOUAAX ENT 
2118 2@ 23 2e¢ J SF: OUTCH 
elle CA DEX 
211C 1@ F7 EPL ENTEVH +€5 
2I1E 6€¢ RTS 
2liF c& EN T = ’ 
2le@ oF = ‘? 
elél e&é = . 
elec 46 = °H 
eles é€C = *s 
ele4 $6 = ‘Vv 
el2sS ee = . 
21Z6 Se = * 
e1e7 4§ = 'E 
e128 54 = 'T 
ele9 4E = 'N 
ele2A 45 = "E 
FLANT THE SEEL 
eler AG &E LEYIM S$€E& 
elen 62 ETS 
elek AD &7 FLANT LDAIM S@7 
21la¢ 8& GE STA V SET FOF MICSCY LEN 
2132 AD IF LUAIM f1F 
2104 @5 @F FACK STF& H 
2136 2€ FT Ee JOF CON VH 
z139 18 CLC 
e2lSh AS eC LD& ALF 


213C 
Z1SE 
21lag 
else 
2144 
2146 
2146 
212A 
elav 
2154 
e152 
2154 


2156 ° 


2158 
2154 
<15D 
215F 
2161 
2162 
2164 
2166 
2168 
c1l6A 
21é6Cc 
216F 
<17@ 
e172 
2174 
€176 
e179 
<1l7B 
2170 
217TF 
2181 
£183 
2lBE 
2188 
21854 
El8C 
€1eDd 
21sF 
2191 
2192 
2195 
2196 
219 


219 
cIOE 
ZlAg 
elfe 
21A4 


21 


21 


+ 2¢ 


BASK 


PLAN 


FLANTE 


EAD 


DI SFLAY 


AIC FON DL 
STA POINTL 
LDA ADR +1 
ADC FON DH 
ST& POINTE 
LDALIM €@1 
STAIY FOINTL 
J SE EN TE-VH 
J SF. GET 
EEG EAS} 
CMFIM 'G 
EMI FLANT -@3 
ANDIM $€7 
STA V 
JSF GET 
BEG BASK 
CMPIM ‘+ 
EN E FL AN 
SEC 
LDAIM S¢¢ 
SEC V 
STL V 
LDAIMN '°'s 
JSF. OUTCH 
CLC 
LCA V 
ADCIM %*F7 
STA V 
JISK GET 
BEG EASK 
CMFIM 'G 
EM FLANT -@% 
AENCIM $¢7 
STL H 
JSF GET 
FEC EASK 
CMPIM ‘%- 
ENE PLAN TE 
SEC 
LUAIM S$€¢ 
SEC H 
STE Hi 
LGA H 
CLC 
&DCIM S1F MEECUFE TO 
J4P BACK 
COORDINATE 
J SF. GETCH 
CMPIM 'S 
EMI BAT 
FTS 

ALL OF FONE 


53 


) TEF 


21AS 
21A8 
21AA 
21AC 
21AE 
21Be 
21B3 
21BS 


21B7 


21B9 
21BB 
21ED 
21Ce 
2103 
21C5 
2107 
2109 
21CB 


21CC 
21CE 
21 Deg 
21De 
elba 
2106 


217 
clDs 
21DC 
21DE 
elE¢ 
21] 
2lEs 
21E6 
21E7 
ZirS 
21EE 
elED 
2lFre 


2iFl 
2lF4 
Z1F6 
elFs 
ClFA 
elFC 
clFE 
eeke 
ecge 


21 


2g 


ee 
ee 


21 


22 


21 


SHOALL JSR 


SHOAL 


SHOA 


LDAIM 
STA 
LDAIM 
STA 
JSR 
LDALY 
BEGQ 
LDAIM 
BPL 


MOVE PONT TO 


MOVE 


CLEAR 


CLEAR 


CLEA 


EURY 


LDA 
STA 


UPDATE JSKE 


LUAILY 
EMI 
CMPIM 
EMI 
LDAIM 
BEG 
LOAIM 


POSTIT STAIY 


FOINTL 


INCFT 


CLEA 
CNT 

CLEA 
MOVE 


MOVE 


POINTL 
FOSTIT 


$62 


-@3 


THE DEAD «ND RAISE THE CHILDEEN 


- G2 


FOSTIT +@2 


E2¢ 


POSTIT 


SE 1 


POINTL 


cee4 
eeeT 
22e9 
22eE 
22eeD 
2ele 


2211 
2214 
2216 
2218 
221A 
221C 
221D 
221F 
2221 
2203 
2224 
2226 
2228 
220A 
222C 
222k 
2230 
2232 
2234 
2236 


2239 
223A 
223E 
223d 
eeuF 
224} 
2243 
224s 
2247 
e24s 
2e4h 
224D 
ccaFr 
2252 
2e54 
2257 
2cssé 
225A 
225C 
e2SE 
ecsF 
2266 


21 


21 


22 


e€ 


ek 


2G 


INCPT 
POINTH 

LAS +21 
UPDATE +63 
MOVE 


ECGE FOND WITH ZEFOES 
TO PREVENT WRAF- AROUND 


EDCGE 


WRA 


JSR 
LDYIM 
LDAIM 
STALY 
STALY 
DEY 
BFL 
LOYIM 
LEA 


MOVE 
$3F 
$e 
PON 
LAS 


EDGE 
S26 
POIN TL 


+27 


SAL 
POINTL 
$2 
POINTH 
POINTH 
LAS 
EDGE 
SEO 
POINTL 
WEA 


+21 
aa Fs | 


INCKEMENT AND DISPLAY 
THE GENERATION COUNT 


INCG 


NCG 


INCPT 


MOV 


CLC 
SED 
LDAIM 
ADC 
STA 
LDAIM 
ADC 
sTA 
CLE 
LDAIM 
JSF. 
LDA 


$@1 
GL 
GL 
£6¢ 
GH 
GH 


CL 
PRTEYT 


POINTL 
INCFT 
POINTH 


+6 


FOINTL 


eeée2 
2264 
2266 
2268 
ec6A 
2c6C 
ce6bE 
2276 


ee7l 
2272 
eeT7s 
ee7TT 
c2eTh 
ee7TC 
ce7F 
2e8 I 
eeB4 
2c&6 
2288 
ecsE 
2280 
cesFr 
229 1 
2293 
2296 | 
e297 
2ooA 


eG 


2¢ 


e¢ 


2 


eg 


2g 


SBECIM 
STA 
LDA 
SECIM 
STA 
LDYIM 
STY 
RTS 


$41 
POINT 
POINTH 
$2 
FOINT 
$28 

NN 


+21 


DISPLAY THE CHARACTER IN THE ACC. 


SYMBOL TAELE 


FASK 


CAL 
CNT 


CRLF 


LISPLY 
GETCH 


H 


LAs 


40 VZ 


N EF: 


OUT CH 
POINT 
PON DL 
POSTIT 
SHOAL 
START 


21a 
ceBE 
ECS 
eG1c 
ece7l 
e@14 
GCF 
GEEE 
e253 
ego ke 
ees 
E36 
OE1C 
eche 
clac 
eCecE 


AT THE -- FOINT -- ADDRESS ON TUBE 
DISPLY FHA SAVE &CC 
: JSF CL CADF 
STY V 
JSR CALCVH CALC VsH 
LDAIM $15 PRINT ESCAPE 
JSP. OUTCH TO MOVE CURSOFR 
LDAIM ‘= AES ADDRESS 
JSF OUTCH 
LDA V 
ORAIM $4@ ADJSUT V 
JSF OUTCH 
LDA H ADJUST H 
CMPIM $2@ 
BFL LISP 
ORAIM $42 
DISP JSF OUTCH 
PLA. GET ACC 
JSR OUTCH PFINT IT 
ETS 
ADR GLC EACK 2124 BeD 
LIRTH e&8DE FIFTHS 2fEs CALCVH 
CLCADR 285 CLEA C1El CLEALF 
CONV OGFF CONVH 2@F7 CONVI 
LATA 283 DEATH 2¢CE DISP 
EDGE 2211 ENTRVH 211¢ ENT 
GET G19E GH E239 GL 
INCE 2239 INCET 2258 LAST 
LFLAG €232 LIFE OGEY MOVE 
MOV POSF NB SEAI NEFS 
NCG OO 48 NA €@31 OFFSET 
FLAN E164 FLANT S812E PLAN TE 
POINTH €€35 FOINTL @@34 PON LH 
FON GCG1E POST OGLE POSTA 
PETEYT 2¢11 SAVY GE33 SHOA 
SHOALL 2145 SHO GLEE STAR 
UFDATE 21F1 v GEE WEA 


21A4 
2677 
21b7 
2GED 
2293 
Q11F 
Gig 3E 
GEe2K 
21CC 
2¢99 
“Bee 
2193 
GGL 
2EC1 
21L3g 
2e3L 


Cee) 


EKIM OR MAXI-KIM 
Extended Keyboard Input Monitor 


Andrew V.W. Sensicle 
155 Valois Bay Ave. 
Pointe Claire, Montreal 
Quebec, Canada H9R 4B8 


Although KIM-1’s ROM contains useful features like the tape and 
TTY input-output routines, when it comes to inputting data or 
coding via the key pad, KIM’s resident monitor leaves much to be 
desired, for example the avoidance of repetitive pushing of the “t” 
between each entry or the ability to look back a few bytes without 
going into address mode. ! would like to thank Jim Butterfield for 
his excellent BROWSE and BRANCH PROGRAMS which 1! put 
together in Page 1 and have used religiously since | got started in 
this game in mid ‘78. 


However, these have their limitations and ! have frequently found 
the need for a little more sophistication, not to mention the space 
they occupy in Page 1. Anyway the thing which irritated me most 
was the need to re-enter a long listing merely in order to open up a 
few spaces for additional instructions. The process of tidying up a 
finished program, entailing closing up unwanted spaces and the 
associated readdressing was also very time consuming. 


| thus decided to try to write an extended monitor which would be 
compact enough to fit in Page 17 and yet provide the functions | 
needed. After much condensing and compressing | ended up with 
a program 6 bytes longer than the “legal” Page 17 RAM, but by 
stealing a little from KIM it fits nicely. KIM doesn’t seem to mind. 
As long as you don’t use the tape or TTY routines, he leaves you 
alone. 


The NMI vector is loaded with the start address (1780) so that the 
ST key can be used to access the monitor at any open cell address. 
Before pressing ST or after exitting via RS the resident monitor is 
used as a normal in the AD mode. The ST key gives you 6 other 
modes of operation or functions. 


MODE 
TEMPX 
LAST 
INL 
POINTL 
POINTH 


SCAND 
GETKEY 
UPDATE 
INCPT 


1780 D8 START 
1781 A2 Ol 
1783 86 FF 


1785 86 FD 


1. STAND BY MODE [ST]: This starts the program which then sits 
looking at the open cell address and its contents, ie. nothing seems 
to happen. However, any HEX key is stored at the open cell address 
which each second key stroke increments the address. ° 


2. INCREMENT [t): Big deal! This works just like normal. 


3. DECREMENT [PC]: This steps the address points backwards 
exactly the reverse of “tT”. 


4. OPEN UP MODE [AD): Each depression of this key causes one 
full page of bytes (FF) to be moved one place up starting at the 
open cell address. 


5. CLOSE UP MODE [DA]: Each depression of this key causes one 
full page of bytes to be moved one place back to overwrite the 
open cell contents. Having made an “open up” or close up move 
of one or more steps you will, of course, have to fix up all affected 
addresses. This is not as onerous as it sounds if you use the sixth 
mode. 


6. BRANCH MODE [GO]: When a branch instruction is en- 
countered while entering a new program or fixing up an old one, 
all you need do is press “GO” followed by the actual destinction 
address (low order only). The monitor will calculate the relative 
address, store it in the open cell and step on to the next cell all in 
the twinkling of an eye. The user is, as usual, responsible for 
ensuring that the branch does not exceed the normal half page 
range. 


! hope that this little program will be as useful to others as it is and 
has been to me. 


ORG $1780 

* ¢OOFF 

* $OOFD 

* ¢00F 3 

* ¢O0F8 

* S$O0FA 

* ¢00FB 

* $¢1F19 

* $1F6A 

* $1FBB 

* $1F63 

CLD 

LDXIM $01 INITIATE MODE AND 
STX MODE COUNTER 
STX TEMPX 


BB iF 


63 1F 
80 JI/ 


GETK 


SKIP 


OPENUP 
OPENX 


CLOSUP 
CLOSY 


DECPNT 


INDATA 


INCPNT 


JSR 
JSR 
CMP 
BEQ 
STA 


CMPIM 


BNE 
DEC 


CMPIM 


BEQ 


CMPIM 


BEQ 


CMPIM 


BE Q 


CMPIM 


BNE 


LDYIM 


DEY 


LDAILY 


INY 


STAILY 


DEY 
BNE 
BEQ 


LDYIM 
LDAIY 


DEY 


STAIY 


INY 
INY 


CMPIM 


BCS 
JSR 
LDA 


STATIY 


DEC 
BEQ 
LDY 
BNE 
CLC 
SBC 


STALY 


JSR 
JMP 


58 


$1] 


CLOSUP 


$10 


INDATA 


$F F 


POINTL 
POINTL 


OPENX 
START 


$01 


POINTL 
POINTL 


CLOSY 
START 


POINTL 
POINTL 


$FF 


START 
POINTH 
START 


$10 
GE TK 


UPDATE 


INL 


POINTL 
TEMPX 


GE TK 
MODE 


INCPNT 


POINTL 
POINTL 
INCPT 
START 


LIGHT DISPLAY 
CHECK KEYS 


NEW KEY 
GO ? 


PUT IN BRANCH MODE 
+ ? 


LOAD 255(10) 


LOAD AND STORE 
ONE CELL HIGHER 


NEXT 


LOAD OPEN CELL 
PLUS 1 

STORE IN OPEN CELL 
THEN UP 

UNTIL 


CONE 255 (10) 


PAGE CHANGE? 
NO 

YES, THEN 
AS WELL 


DEC POINTH 


FALSE START ACTUALLY NO KEY 
ROL 4 BITS FROM A TO INL 


ONE MORE KEY 
IN BRANCH MODE? 
NO 


CALC RELATIVE ADDRESS 
STORA IT IN OPEN CELL 
NEW CELL 

RETURN 


CORRECTED KIM FORMAT LOADER FOR SYM-1 


Nicholas J. Vrtis 
5863 Pinetree S.E. 
Kentwood, MI 49508 


My cassette is an old model GE, and it won’t quite hack the high 
speed tape format of the SYM-1, so | have probably used the KIM 
format option more than most SYM owners. In the process, | have 
found a bug in the SYM monitor tape load routine. Synertek 
knows about the problem, but didn’t have a nice fix when I called, 
so | worked up the attached program. 


The problem with the monitor routines is that they will not load a 
slash (hex 2F) from a KIM format tape. The slash is used to indicate 
that the data is done, and the checksum follows. The monitor 
routines don’t check for the slash until after the KIM characters 
have been read and combined. The error you get is a checksum 
error (ER CC). 


Most of the code for this program has been copied from the SYM 
monitor routines, except these work. The basic logic change is that 
when a slash is read as a single KIM byte, it is treated as a non-hex 


character. The non-hex routine checks for the slash instead of after 
every character. If it is a slash, it goes to the checksum check 
routine. 


This routine is not as fancy as the monitor routines, but it sure 
beats re-keying a couple K bytes of program. It has turned out to 
be convenient to have this program available even for loading 
programs without the slash. By changing the branch after the 
compare for the slash to a branch back to LOADT7 it will ignore 
errors. Sometimes this will load a bad tape with only minor errors. 
Other times the program gets out of sync and loads garbage. It is 
worth the try for a tape you have spent a lot of time on. 


One final comment about cassettes. If you have the remote 
control connected, putting a hex CC into location AOOC will turn 
the cassette motor back on. It is easier than yanking the remote 


plug. 


FIXED SYM-1 KIM FORMAT LOADER 


NICHOLAS J. VRTIS 


MARCH 1979 


STRIPPED DOWN VERSIONS OF L1 COMMAND. 

WILL LOAD A 2F WHICH CAUSES SYM-1 TROUBLE. 
ONLY FOR KIM FORMAT TAPES. | 

ID SHOULD BE PUT INTO LOCATION OOOO. 


0080 CHAR * ¢OOFC 
0080 MODE * $O00FD 
0080 BUFADL * ¢OOFE 
0080 BUFADH * $O00FF 
SYM-1 REFERENCES 
0080 DDRIN * $¢A002 
0080 VIAACR * $¢A00B 
0080 LATCHL * ¢A004 
0080 ACCESS * $¢8BA6 
0080 SLASH * $¢8D3C 
008d LOADTX * $8D4F 
0080 NHERR * $¢8D69 
0080 SYNC * ¢8D82 
0080 START * $8DB6 
0080 RDBYTX * $8E£28 
0080 PACKT * $¢BE3E 
0080 RDCHT ¥* $8E6] 
0080 CHKT * $8E78 
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CHAR ASSEMBLY & DISASSEMBLY 


CURRENT CHAR INDIRECT ADDRESS 


SLASH IN SYM MONITOR 


0000 
0000 


o001 
0004 
0006 
0009 
OO0C 
OOOE 
0011 
0015 
0016 
0018 
0018 
OO1E 
0021 
0023 
0025 
0027 
0029 


002B 
002D 


CO2F 


0032 
0034 
0056 


0038 
003B 
OOSE 
0040 
0045 
0046 


0048 
O04B 
004D 
0050 
0052 
0054 
0056 
0058 
COSA 


00 


20 
AO 
20 
AD 
29 
BD 
A9 
BD 
A9 
8D 
20 
20 
C9 
FO 
C9 
DO 
FO 


A9 
85 


20 


C5 
FO 
DO 


20 
20 
85 
20 
20 
85 


20 
BO 
20 
AO 
9] 
E6 
DO 
E6 
DO 


A6 
00 
Bé 
02 
BF 
02 
00 
OB 
AE 
04 
82 
61 
2A 
06 
16 
F2 
F 3 


00 
FD 


28 


00 
02 
E3 


28 
78 
FE 
28 
78 
FF 


67 
OF 
78 
00 
FE 
FE 
FO 
FF 
EC 


8B 


8D 
AQ 


AO 
AQ 
AQ 


8D 
BE 


BE 


BE 
8E 


BE 
BE 


00 


BE 


ID 


LOADT 


LOADTA 
LOADTB 


LOADTC 


ORG 


JSR 
LDYIM 
JSR 
LDA 
ANDIM 
STA 
LDAIM 
OTA 
LDAIM 
STA 
JSR 
JSR 
CMPIM 
BEQ 
CMPIM 
BNE 
BEQ 


LDAIM 
STA 


JSR 


$0000 
$00 


ACCESS 
$00 
START 
DDRIN 
$BF 
DDRIN 
$00 
VIAACR 
$AE 
LATCHL 
SYNC 
RDCHT 
1 ¥ 
LOADTC 
$16 
LOADTA 
LOADTB 


$00 
MODE 


RDBYT X 


RESERVED FOR PROGRAM ID 


UN-PROTECT SYSTEM RAM 
SET KIM MODE 
INITIALIZE 


BIT 6 = 0 INPUT IS PB6 


SET UP CLOCK FOR GETTR (KIM) 
STORE GETTR VALUE IN LO LATCH 
GET IN SYNC 


START OF DATA ? 
NO - SYNC CHARACTER? 


IF NOT, RESTART SYNC SEARCH 
IF YES, KEEP LOOKINT FOR THE * 


CLEAR "NOT IN SYNC BIT" 


READ ID BYTE 


CHANGE THE FOLLOWING IF ID LOCATION IS 


NOT HEX 0000 


LOADTD 


CMP 
BEQ 
BNE 


JSR 
JSR 
STA 
JSR 
JSR 
STA 


ID 
LOADTD 
LOADTA 


RDBYTX 
CHKT 
BUF ADL 
RDBYTX 
CHKT 
BUF ADH 


COMPARE WITH REQUESTED ID 
GO LOAD IF EQUAL 
UNCONDITIONAL - RESTART SEARCH 


GET SAL FROM TAPE 


PUT IN BUF START LOW 
SAME FOR SAH 


THE FOLLOWING JSR ROBYT IS THE ONLY 
INSTRUCTION THAT WOULD HAVE T0 CHANGE 
TO RE-LOCATE THIS PROGRAM 


LOADTE JSR 


BCS 
JSR 


LDYIM 
STAILY 
INC 
BNE 
INC 
BNE 


RDBYT 
XNHERR 
CHKT 
$00 
BUFADL 
BUFADL 
LOADTE 
BUF ADH 
LOADTE 


GET A BYTE INPUT 
BRANCH IF NOQN-HEX 
INCLUDE IN CHECKSUM 
STORE BYTE 


BUMP BUFFER ADDRESS 

BRANCH IF NO CARRY 

ELSE NEED TO UPDATE HIGH ORDER 
UNCONDITIONAL 


IN SYM MONITOR 

IT REALLY AN ERROR 

LET HIM HANDLE CHECKSUM 
MONITOR DO THIS ALSO 
SEE IF A SLASH 

SET CARRY AS NON-HEX 


SEE IF GOOD CHARACTER 
BRANCH AROUND RETURN IF HEX 


GET NEXT HALF CHARACTER 


0O5C CD 3C 8D XNHERR CMP SLASH "/" 

OO5F DO O03 BNE YNHERR WAS 

0061 4C 4F 8D JMP LOADTX NOW 

0064 4C 69 8D YNHERR JMP NHERR LET 

0067 20 61 8E RDBYT JSR RDCHT READ ONE HALF 
OO6A CD 3C 8D CMP SLASH 

006D DO 02 BNE RDBYTA BRANCH If NOT 
OO6F 38 SEC 

0070 60 RTS AND RETURN 
0071 20 35E 8E RDBYTA JSR PACKT 

0074 90 Ol BCC RDBYTB 

0076 60 RTS 

0077 AA RDBYTB TAX SAVE MSD 

0078 20 61 8E JSR RDCHT 

OO7B 86 FC ST X CHAR SAVE IT HERE 
OO7D 4C 3E 8E JMP PACKT CHECK 


FOR HEX & RETURN 


STORAGE SCOPE REVISITED 


Joseph L. Powlette 
Donald C. Jeffery 
Hall of Science 
Moravian College 
Bethlehem, PA 18018 


Marvin DeJong has written an excellent article 
(MICRO, No.2, pp.11-15, Dec 77-Jan 78) which 
serves to transform an ordinary oscilloscope in- 
to a storage scope. We have constructed several 
units for use in our laboratory and found them 
to be very useful. However, we would like to 
suggest a simple hardware change which will 
improve the quality of the circuits performance. 
Figure 1 is a photograph of the storage scope 
response to a triangular wave (14Hz and voltage 
offset) using DeJong's circuit. The cause of 
the irregularities seen in this figure was 
traced to the second OP-AMP which is used as a 
comparator. The slew rate of the CA3140 is not 
high enough to adequately accommodate the suc- 
cessive approximation software routine. Figure 
2 shows the collection of data for the same wave 
with the second OP-AMP changed to a 531 high 
slew rate OP-AMP. The 531, which is readily 
available, has the same pin-out (in the TO-5 
package) as the CA3140 but pin 4 must be con- 
nected to -15 volts rather than ground poten- 
tial. Also, do not use a frequency compensation 
capacitor with the 531 since this will only de- 
crease the slew rate of this OP-AMP in the com- 
parator configuration. The 531 is not a FET in- 
put type and does not have the high input in- 
pedance (1.5 T ) of the CA3140. If such a high 
impedance is desirable, one can use a CA3140 in 
the following configuration preceding the 531 
non-inverting voltage input. 


One should also note that: 

1. There is a 7 bit version of the 1408 DAC. 
Specify 1408L8 for the 8 bit converter. 

2. +5 volts should be connected to pin 13 of the 
1408 (see MICRO, No. 6, p. 4, Aug-Sept, 1978) 

3. The flow chart for the successive approxi- 
mation routine is not correct. 


DeJong is to be commended for this storage scope 
application. In fact, the performance of the 
program (with the above hardware change) 
approaches that of commercial units. 


Flow Chart for 
Successive Approximation 
Analog to Digital Conversion 


PAD = 80.6 = 10000000 
PGZZ = 80, 


2 


10000000, 









LOGICAL SHIFT RIGHT PGZZ. 
(Shifts all bits one bit 
right and zero bit is 
shifted into carr i 





IS PGZZ CARRY 
BIT SET? 


YES 


APPROX, 
FINISH 


Correction to Successive Approximation - 
Micro, No.2, P. 13. Dec. 77 - Jan. 78 
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Figure 2 


Figure 1 








14 Hz Sine Wave 
(Voltage Offset) 


14 Hz Sine Wave 
(Voltage Offset) 


Modified Circuit 


De Jong's Circuit 
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BREAKER: AN APPLE II DEBUGGING AID 


Rick Auricchio 
59 Plymouth Ave. 
Maplewood, NJ 07040 


When debugging an Assembly-language program, one 
of the easiest tools the programmer can use is 
the Breakpoint. In its most basic form, the 
Breakpoint consists of a hardware feature which 
stops the CPU upon accessing a certain address; 
a "deluxe" version might even use the Read/Write 
and Syne (instruction fetch) lines to allow 
stopping on a particular instruction, the load- 
ing of a byte, or the storing of a byte in mem- 
ory. Since software is often easier to create 
than hardware (and cheaper for some of us!), a 
better method might be to implement the Break~ 
point with software, making use of the BRK op- 
code of the 6502 CPU. 


A Breakpoint, in practice, is simply a BRK op- 
code inserted over an existing program instruct- 
ion. When the user program's execution hits the 
BRK, a trap to the Monitor (via the IRQ vector 
$FFFE/FFFF) will occur. In the APPLE, the Mon- 
itor saves the user program's status and regis- 
ters, then prints the registers and returns con- 
trol to the keyboard. The difficult part, how- 
ever, comes when we wish to resume execution of 
the program: the BRK must be removed and the 
original instruction replaced, and the registers 
must be restored prior to continuing execut- 
ion. If we merely replace the original opcode, 
however, the BRK will not be there should the 
program run through that address again. 


The answer to this problem is BREAKER: a soft- 
ware routine to manage Breakpoints. What the 
debugger does is quite simple: it manages the 
insertion and removal of breakpoints, and it 
correctly resumes a user program after hitting 
a breakpoint. The original instruction will be 
executed automatically when the program is res- 
umed! 


Is it Magic? 


No, it's not magic, but a way of having the 
computer remember where the breakpoints are! 
If the debugger knows where the breakpoints are, 
then it should also know what the original in- 
struction was. Armed with that information, 
managing the breakpoints is easy. Here's how 
the debugger works: 


During initialization, BREAKER is "hooked-in" to 
the APPLE monitor via the Control-Y user com- 
mand exit, and via the COUT user exit. The con- 
trol-Y exit is used to process debugger com- 
mands, and the COUT exit is used to "steal con- 
trol" from the Monitor when a BRK occurs. 


Breakpoint information is kept in tables: the 
LOCTAB is a table of 2-byte addresses--it con- 
tains the address at which a breakpoint has been 
placed. The ADTAB is a table of i-byte low- 
order address bytes; it is used to locate a 
Break Table Entry (BTE for short). The BTE is 
12 bytes long (only the first 9 are used, but 12 
is a reasonably round number) and it contains 
the following items: 


# Original user-program instruction 
* JMP back to user-program 
* JMP back for relative branch targets 


When adding a breakpoint, we must build the BTE 
correctly, and place the user-program break add- 


ress into the LOCTAB. There are eight (8) 
breakpoints allowed, so that we have a 16-byte 
LOCTAB, 8-byte ADTAB, and 96 bytes of BTE's. 


As the breakpoint is added, the original inst- 
ruction is copied to the first 3 bytes of the 
BTE, and it is “"padded"® with NOP instructions 
($EA) in case it is a 1 or 2-byte instruction. 
A BRK opcode ($00) is placed into the user pro- 
gram in place of the original instruction's op- 
code (other instruction bytes are not altered). 
The next 3 bytes of the BTE will contain a JMP 
instruction back to the next user-program inst- 
ruction. 


If the original instruction was a Relative 
Branch, one more thing must be considered: if 
we remove the relative branch to the BTE, how 
will it. branch correctly? This problem is sol- 
ved by installing another JMP instruction into 
the BTE for a relative branch--back to the Tar- 
get of the branch, which is computed by adding 
the original PC of the branch, +2, +offset. 
This Absolute address will be placed into the 
JMP at bytes 7-9 of the BTE. The offset which 
was copied from the original instruction will be 
changed to $04 so that it will now branch to 
that second JMP instruction within the BTE; the 
JMP will get us to the intended target of the 
original Relative Branch. 


A call to the routine "INSDS2" in 
returns the length and type of an 
for the "add" function. The opcode 
in the AC, and LENGTH & FORMAT are 
riately by the routine. 


the Monitor 
instruction 
is supplied 
set approp- 


Removal of a breakpoint involves simply rest- 
oring the original opcode, and clearing the 
LOCTAB to free this breakpoint's BTE. 


Displaying of breakpoints prints the user-prog-~ 
ram address of a breakpoint, followed by the 
address of the BTE associated with the break- 
point (the BTE address is useful--its importance 
will be described later). 


When the breakpoint is executed, a BRK occurs 
and the APPLE Monitor gets control. The monitor 
will "beep" and print the user program's regis- 
ters. During printing of the registers, BREAKER 
will take control via the COUT exit. (Remember, 
we get control on every character printed - but 
it's only important when the registers are being 
printed. That's when wetre at a breakpoint). 
While it has control, BREAKER will grab the 
user-program's PC and save it (we must subtract 
2 because of the action of the BRK instruction). 
If no breakpoint exists at this PC (we scan LOC- 
TAB), then the Mointor is continued. If a 
breakpoint does exist here, then the BTE ad- 
dress is set as the "continue PC". In other 
words, when we continue the user program after 
the break, we will go to the BTE; the original 
instruction will now be executed, and we will 
branch back to the rest of the user program. 


Using BREAKER 


The first thing to do is to load BREAKER into 
high memory. It must then be initialized via 
entry at the start address. This sets up the 
exits from the Monitor. After a Reset, you must 
re-initialize via "YcI" to set up the COUT exit 


Upon entry at the start address, all 
after "YcI", they re- 


again. 
breakpoints are cleared; 
main in effect. 


To add a breakpoint, type: aaaaYcA . (Ye is 
control-Y). This will add a breakpoint at 
address ‘aaaa' in the user progran. A ‘beep! 
indicates an error; you already have a break- 
point at that address. To remove a breakpoint, 
type: aaaaYcR. This will remove the breakpoint 
at address ‘taaaa' and restore the original op- 
code. A ‘beep' means that there was none there 
to start with. 


Run your user-program via the Monitor's "G" com- 
mand. Upon hitting a breakpoint, you will get 
the registers printed, and control will go back 
to the monitor as it does normally. At this 
point, all regular Monitor commands are valid, 
including "YcA", "YcR", and "YcD" for BREAKER. 


To continue execution (after looking at stuff 
maybe modifying some things), type: YeG . This 
instructs BREAKER to resume execution at the BTE 
(to execute the original instruction), then to 
transfer control back to the user program. Do 
not resume via Monitor "G" command--it won't 
work properly, since the monitor knows nothing 
of breakpoints. To display all breakpoints, 
type: YcD. This will give a display of up to 8 
breakpoints, with the address of the associated 
BTE for each one. 


BREAKER DEBUGGER: 


Caveats 


Some care must be taken when using BREAKER to 
debug a program. First, there is the case of 
BREAKER not being initialized when you run the 
user progran. This isn't a problem when you 
start, because you'll not be able to use the Ye 
commands. But if you should hit Reset during 
testing, you must re-activate via "YcI", 
otherwise BREAKER won't get control on a break- 
point. If you try a YcG, unpredictable thins 
will happen. If you know that you hit a break- 
point while BREAKER was not active, you can 
recover, Simply do a "YcI", and then display 
the breakpoints (YceD). Resume the user-pro- 
gram by issuing a Monitor "G" command to the BTE 
for the breakpoint that was hit (since BREAKER 
wasn't around when you hit the breakpoint, you 
have to manually resume execution at the 
BTE). Now all is back to normal. You can tell 
if BREAKER is active by displaying loc- 
ations $38 and $39. If not active, they will 
contain $FO FD. 


It's also important to note that any user pro- 
gram which makes use of either the Control-Y or 
COUT exits can't be debugged with BREAKER. Once 
these exits are changed, BREAKER won't get con- 
trol when it's supposed to. 


Routines to Handle up to 8 


Breakpoints, for use in Debugging of User Code. 


*#*#%* APPLE-2 MONITOR EQUATES 
* 


B82E FORMAT  EQU X'2E! INSTRUCTION FORMAT 
0a2F LENGTH  EQU X'2F! INSTRUCTION LENGTH 
B83 ALL EQU X'3C! WORK AREA 
803D A1lH EQU X'3D' 
0O3E A2L EQU X'3E! 
603F A2H EQU X'3F! 
o040 A3L EQU x' 4p! 
J041 a3H EQU x'4i! 
* 
0236 CSWL EQU X'36! COUT SWITCH WORD 
6837 CSWH FOU X'37' 
& 
F88E INSDS2  EQU X'F88E' DISASSEMBLER 
F940 PRNTYX  EQU X' F940" PRINT Y/X REGS IN HEX 
FDDA PRPYTE EQU X'FDDA' PRINT aC IN HEX 
FDED COUT EQU X'FDED' CHAR OUT 
FF65 RESET EQU X'FP65' MONITOR RESE? 
FF69 MON EQU X'FF69' MONITOR ENTRY 
* 
* CHANGE 'LOWPACE' TO LOCATE 
* ELSEWHERE IN MEMORY. IT Is 
* NOW SET FOR a 32K SYSTEM. 
, 
0O80OG7D LOWPAGE EQU X'7D! 3 PGS PEFORE END MEMORY 
7DOO ORC LOWPAGE**8 ORG OUT TO MEMORY TOP 
7D00 4C 36 7F INIT JMP INITX =>INITLALIZATION ENTRY 
*& 
* --- DATA AREAS --- * 
& 
7DB3 Oo FW1 DC 6 'FINDPC' WORK BYTE 1 
7D04 oT) FW2 DC 0 'PINDPC' WORK BYTE 2 
7D85 wD, PCL DC y 'GO' PC LO 
7DB6 i) PCH DC , 'GO' PC BI 
* 
** SKELETON BREAK-IABLE ENTRY (RTE) ** 
* 
7D87 oD, SKEL DC , SKELETON BTE 
7DO8 EA NOP NOPS FOR PADDING 
7DB9 EA NOP 
7DBA 4c 88 oa JMP J JUMP BACK INLINE 
7DOD 4c DC x'4c! JUMP OPCODE FOR BRANCHES 


TDOE 
7DOF 
7DLY 
7D1L1L 
7D12 
7D13 
7D14 
7D1L5 


7D16 


7ID26 
7032 
7D3E 
7D4a 
7D56 
7D62 
TDO6E 
TCDJaA 


7CE6 
7088 
TO8E 
TD8E 
7D98 
7D93 
7D96 
7098 
7099 
7D9A 
7D9IC 
7D9D 


7TD9E 
7D9OF 
7DAY 
7DAL 
TDA2 
TCA3 
7DA4 


7TBAD 
TDA? 


26 
32 
3E 
4a 
56 
62 
6E 
7A 


a2 OF 
aD 44 
CD 16 
DA ve 
AD 03 
DD id 
FO O6 


id EC 


E® FB 
DO 27 


7D 
7G 


70 
7D 


* 


* -~- LO ADDRESS OF BIE'S KEPT IN ADTAB -- * 


* 
ADTAB 


* 


BTE@&255 
BTE1&255 
BTE2&255 
BTE3&255 
BTE4&255 
BTE5&255 
BYE6&255 
BTE7&255 


LO ADDRESS 


*¥* -- LOCTABR CONTAINS ADDRESS OF USER-PROGRAM INSTRUCTION 
WHERE WE PLACED THE BREAKPOINT IN THE FIRST PLACE. 


* 
* 


LOC TAB 


t 


** ~- BREAK-TABLE 
* 


BIEW 
BTEl 
BTE2 
BTE3 
BTE4 
BETES 
BTE6 
BYE? 
* 


Cs 


DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 


2*8 


SPACE FOR 16 PCH/L PaZRs 


ENTRIES {BTE'S) --- * 


* END OF DATA AREAS 
* THE REST IS ROM~-APLE. 
* 


12-BYTES RESERVED 


ENOUGH FOR 8 BREAKPOINTS 


HRA EEKREEKEKEEEEEEKEEREEKEEKEKKEKEKRE 


* 
* 
* 
* 


* 


FPCW2 


PPCO4 


NAME: 


FINDPC 


PURPOSE: CHECK £F PC EIN FWI/FW2 MATCHES ANY IN LOCTAB 


RETURNS: CARRY SET IF YES; 


LDOXIM 


LDA 


CMPX 


BNE 
LDA 


CMPX 


BEC 
DEX 
DEX 
PPL 
CLC 
RTS 


PHA 
TXaA 


XREG#ADTAP INDEX 6-7 


CARRY CLR IF NOT; XREG=*GARBAGE 
VOLATILE:DESTROYS AC 
HHT IMI HII KI HIRE IEE IK RIKKI KERIKERI ERE ERREREREEKE RE 
FINDPC 
FPCHG 


45 
FW2 
LOC TAE 


FPC@2 


FWl 
LOC TAB~1 


FPCW4 


FPCUG 


LSRA 


TAX 
Pha 
SEC 
RTS 


PYTE-INDEX TC END OF TABLE 
GET FCR COMPARE 
A PCH MATCH? 

=>NO. TRY NEXT 2-PYTE ENTRY 
GET PCL NOW 
A PCL MATCH? 

=>YES! WE HAVE A BREAKPOINT! 
BACK UP ONE 

AND ANOTHER | 

=>DO ENTIRE TABLE SCAN 
=>DONE; SCAN FAILED 


HOLE ac 
HALVE VALUE IN XREG 
SINCE IT’S 2-BYTE INDEX 


SET ‘SUCCESS' 


Fe IK II KI I KIKI KKK IKI KIKI KEK IKK KEK KEKE EKER EKREEKEREKR KEKE K 
NAME: 


++ ee He 


x 


PURPOSE: 


NOTE: 


BREAK 


HANDLE ENTRY AT ERK AND PROCESS BREAKPOINTS 

THIS ROUTINE GETS ENTERED ON *EVERY* 'CoUuT' 
CALL--IT KNOWS ABOUT BRK BECAUSE THE MONITOR'S 
REGISTERS ARE SETUP TO PRINT USER REG CONTENTS. 
AFTER PROCESSING IS DONE, IT RESTORES THE MONITOR'S 


REGS AND RETURNS. 


TERE ESASARSSARL ESE SSS SELLE LE REL ER SE SESE RAE A SES SESE SERRE SES ESALAARE ASS SF 


PREAK 


CPXIM 


BNE 


X'FE' 
BRKXX 
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ZS XREG SET FOR EXAMINE-REGS? 
=>NC GET OUT NOW. 


7DA9 
7CAR 
7DAD 
7TDAF 
TDEO 
7CRB2 
7DB5 
VUB7 
7DE9 
7DEC 
7DEF 
7DC1 
7DC4 
7DC7 
7DCY9 


7ECC 
TOCE 
7DDY 


7DD3 
7DD6 
7Cb8 
7DCE 
TEDC 


7TDEU 
TDE2 
7TDE3 
7DE6 
7DE8& 
IDEA 
7DEB 
7DEE 


7DFO 
7DF2 
JDF4 
TOF6 
TOFS 
TOPPA 
TDFC 
TOFE 
FEOV 
FEB 2 


FES 
TEO8 
7ESE 


aD 
8&5 
AD 
85 
4c 


7D 


FE 


FF 


Ve 
99 


F8 


vv 
C7 


Cl 


CMPIM 


BNE 


LDAZ 


SEC 


SECIM 


STA 


LDAZ 
SPCIM 


STA 
JSR 
BCC 


LDAX 


STA 


LDAIM 


STa 


LDAIM 
LDXIM 


JMP 


X'AD' 
BRKXX 
ALL 


2 

FWL 
ALB 

0 

FW2 
FINDPC 
RRKO4 
ADTAP 
PCL 
LOWPAGE 
PCH 


X'ag' 
X'FR' 
X*FDFG' 


IS AC SETUP CORRECTLY TOO? 
=>NOPE. FALSE ALARM! 
GET USER PCL 
AND BACK IT UP 
FY 2 BYTES SINCE 
BRK BUMPED iT! 
GET PCH 
DO TEE CARRY 
AND SAVE THAT TCO 
a PREAKER OF OURS HERE? 
=>NOPE. KE WON'T HANDLE I?! 
YES; GET BTE ADDRESS THEN 
AND SEI IT AS THE 'GO! 
PC FOR THE 'GO' COMMAND. 
{CUR PAGE FOR BTE's) 


SET AC BACK FOR MCNITOR 
AND XREG TOO 
=>NO. RIGHT BACK TO COUT ROUTINE! 


REKKEKEKEKKEEKRKEKEEREKEEEKEKKEKHEEKKEREEKEKEKEKKEERKKKKKEKKKKEKKKKEKKRKRKKK 


PROCESS THE 
COMMAND FORMAT: 


‘co' 


COMMAND {RESUME USER EXECUTION) ** 
{ * yo G ) 


RHEE KHKEEKHEKEEKEKEKEEKEEKEKEKKEEEEREREKREREHREEKREREREKKKEEKKKEKEKKKKKKKEKK 


AB BRKO2 
23 
3C 
V2 
03 70 
3D 
ao 
04 7D 
86 7D 
OP 
QE 7D 
v5 7D 
7D 
06 7D 
* 
Ao PRKU4 
FRB 
FO FD  BRKXX 
kk 
* 
CMDGO LDA 
STAZ 
LDA 
STAZ 
JMP 
*k* 
* 
* 
KEYIN 
KEYINGO 
U2 
02 
* 
%* 
* 
* 
* 
* 
FF PADCMD 
* 
7E  XXDISP 
JF § XXREMOVE 
7F XXINIT 


PCL 
AlL 
PCH 
ALB 


X'FER9! 


CET RESUME PCL 
AND SETUP FOR MONITOR 
TO SIMULATE AN 'XXXX G' 
NORMALLY. 
=>SAIL INTO MONITOR'S 


COMMAND 


‘co’ 


TROP eSESPSSE SEES EES RASE RETR ERE SER ETRRE SALE RES RR ERE SSSR SES AS RL ESAS SE SS 


WE GET CONTROL HERE ON 
MONYTOR (ON KEYINS}. ALL COMMANDS ARE SCANNED HERE; 


THE CONTROL~Y USER EXIT FROM THE 


CONTROL WILL PASS TO THE APPROPRIATE ROUTINE. 
FH HK KK IR ERE EK REI KEE KER ER EERE REE EE EK EEKHEREKREEREEKKKEKKERKER 


LDXIM 
INX 


LDAX 
CMPIM 
ENE 


INX 
LDAX 
CMPIM 


X'FF! 


X'P92B0' 


x'99° 
KEYINGD 
X'9200' 
X'C7' 


ae BRANCH-TABLE WOULD PE 
NEATER, BUT IT WOULD 
TAKE UP MORE CODE FOR 
THE FEW OPTIONS WE HAVE. 


BEQ 
CMPIM 
BEQ 
CMPIM 
BEQ 
CMPIM 
PEQ 
CMPIV 
BEQ 
JMP 


JMP 
JMP 
JMP 


CMDGO 
X'CL' 
CMDADD 
X'C4' 
XXDISP 
X'D2' 
XXREMOVE 
x'C9' 
XXINIT 
RESET 


CMDDISP 
CMCREMOV 
CMDINIT 


CHAR INDEX 

SET NEXT CHARACTER 

GET CHAR FROM KEYIN PUFFER 
CONTROL-Y CHARACTER? 

=>NO. KEEP SCANNING 

BUMP OVER CTL~-Y 

GRAPR COMMAND CHARACTER 

Is IT 'G' {GO) ? 


=>YES. 

Is IT tat {ADD} ? 
=>YES. 

Is IT "D' (DISPLAY) ? 
=>YES. 

Is {[T 'R' {REMOVE) ? 
=>YES. 

Is IT 'ZI' (INIT) ? 
=>YES. 

NOTHING; IGNORE IT! 


EXTENDED BRANCH 
EXTENDED BRANCH 
EXTENDED BRANCH 


HUE KEKKEKEKEEEKEEREKEKEKEKREREREEKEKEEREKKEKEEEEKEEEEKEREKEKEEEEKEKEKEKK 


** PROCESS THE 'ADD' COMMAND..ADD A BREAKPOINT aft 
** LOCATION SPECIFIED IN COMMAND 
* COMMAND FORMAT: { * aaaa Yc aA) . 


BAKKE KKEEKEEEKEKKEKEKKKEKEEKEREKEREKREREKHEKEREKEKEKEKEKKKEKERKKEEKEKEKER 


TEBE a’ V9 CMDADD LDYIM Q CRECK OPCODE FIRST 
FEL Bl 3E LDALY a2L OP AT AAAA A BRK ALREADY? 
FJEL2 F@ EE * BEQ BADCMD =>YES. ILLEGAL! 
* --~ SCAN LOCTAB FOR AN AVAILABLE RTE TC USE --- * 
& 
7E14 a2 OF LDXIM 15 RYTE INDEX TO LOCTAB END 
FEL6 BD 16 7D ADD@s LDAX LOCTAB GET a BYTE 
7E19 DO 85 BNE acClg2 =>IN USE 
JEI1B PD 15 7D LDAX LOCTaP~-1 GET HI HALF 
JELE FO v6 BEQ ADD 4 => POTH ZERO; USE [T! 
FE2O0 Ca ADD 2 DEX MOVE BACK TO 
FJEZL Ca DEX NEXT LOCTAB ENTRY 
JE22 18 F2 BPL abDDss AND KEEP TRYING! 
7E24 38 DC EMI BADCMD =>DONE? ALL FULL! REJECT IT. 
x 
JE26 aA5 3E acDd4 LDAZ aA2L GET aaaa VALUE 
7E28 9D 15 7D STAX LOCTAaB-1 SAVE LO HALF 
JE2P 8D @E 7D STa SKEL+4 STUFF LO aDDR INTO ETE 
FE2ZE aA5 3F LDAZ A2H GET aaaa VALUE 
FJE38 9D 16 JD STAX LOC TAB SAVE HI HALF 
7E33 8D 9C FC STa SKEL+5 STUFF HI ADDR INTO BITE 
7E36 8A TXa GRAB INDEX FOR LOCTAB 
7E37 4a LSRa MAKE ADTAB INDEX 
7E38 aa TAX AND STUFF BACK INTO XREF 
7E39 a9 7D LDAIM LOW PAGE BTE'S HI ALCRESS VALUE 
7E3E 85 41 STAZ A3H HOLD IN WORK AREA 
7E3D BD OE 7D LDAX ADTAP GET BYE LO ALCDR FROM ADTAP 
JE4V 85 48 STAZ A3L SAVE IN WORK AREA 
7E42 av B87 LDYIM 7 7J-PYTE MOVE FOR SKEL BTE 
JE44 R9 897 7D aDDO6 LDAY SKEL GET SKEL PYTE 
7E47 91 48 STaLly a3L MOVE TO PETE 
7FE49 88 DEY SET NEXT 
JE4aA 16 F8 EPL ACLO6 => MOVE ENTIRE SKELETON 
FE4C C8 INY 
7JE4D Bl 3E LDALY A2L GET ORIGINAL OPCOCE 
JE4F 91 48 STalYy a3 INTO ETE 
FED5SL 28 8E F8 JSR INSCDS2 INSCDS2 (TO DISASSEMBLE) 
7E54 Ad 8B LDAIM G SET ERK OPCOBE 
7E56 91 3E STALY aA2L OVER ORIGINAL OPCOLCE 
JE58 a5 2F LDAZ LENGTH GET INSTRUCTION LENGTH 
TESA 38 SEC 
* 
* =--— SET UP JMP TO NEXT INST. IN THE ETE --- * 
* 
JE5B a’ 64 LDYIM 4 
JES5D 71 40 aADCIY a3L ADD TO PC FOR DESTINATION 
JESF 91 42 STALY a3L STUFF INTO ETE 
7E61 C8 INY 
FE62 Bl 40 LDALY a3L RUN UP THE CARRY 
7E64 69 dd ADCIM 4) RIGHT HERE 
E66 1 40 STALY A3L STUFF ADDRESS INTO JMP 
ree As 2E LDAZ FORMAT GET INSTRUCTION FORMAT 
TEGA C9 9D CMPIM X*9D' IS FORMAT=BRANCH? 
TE6C FO 16 BEQ ADDBRCH =>YES. MORE TO DO 
TEGE A5 2F LDAZ LENGTH LENGTH=1? 
TETO FO OF BEQ CMDRET =>YES. DONE 
TET2 6A RORA LENGTH=2? 
TET3 BO 06 BCS ADDLEN2 =>YES 
TET5 AO 02 LDYIM 2 LENGTH=3;MOVE 3RD BYTE TO BTE 
TETT7 B1 3E LDALY A2L GET INST 3RD BYTE 
TET9 91 40 STAIY A3L AND MOVE TO BTE 
TETB AO 01 ADDLEN2 LDYIM 1 LENGTH=2;MOVE 2ND BYTE TO BTE 
TET7D B1 3E LDAIY A2L GET INST 2ND BYTE 
TETF 91 40 STAIY A3L AND MOVE TO BTE 
7E81 4C 69 FF  CMDRET JMP MON DONE; BACK TO MONITOR! 


TEEC 
JEEE 
7EFL 
TEF3 
JEFS 
FEF8 
7VEFA 
JEFD 
TFUO 
JFOL 
TFV2 


FC 


FD 
FD 
7D 
FD 


FD 


FD 


FD 


F8 
7F 


ADDBRCH LDYIM 1 
LDAIY  A2L 
CLC 
ADCIM 2 
ADCZ A2L 
STAZ A2L 
LDAZ A2H 
ADCIM 0 
STAZ A2H 
NOP 
LDAIM 4 
STAIY  A3L 
LDYIM = 7 
LDAZ A2L 
STAIY  A3L 
INY 
LDAZ A2H 
STAIY A3L 
CLV 
BVC CMDRET 
DISPO@4 TXa 
PHA 
LDYX LOCTAB 
LDAX LOCTAB-1 
STYZ X'3B' 
STAZ X'3a! 
TAX 
JSR PRNTYX 
LDAIM X'AB! 
ISR COUT 
PL 
PHA 
LSRA 
TAX 
LDAIM X'BC! 
JSR cour 
LDAIM LOWPAGE 
STAZ A2H 
JSR PRBYTE 
LDAX ADTAB 
STAZ A2L 
JSR PREYTE 
LDAIM X'BE' 
JSR COUT 
* 
* 
* 
* 
* 
LDAIM X'ap' 
JSR COUT 
LDYIM ") 
LDALY A2L 
JSR PRBYTE 
LDALY a2L 
JSR INSDS2 
JSR ISRKLUGE 
PLA 
TAX 
BPL DISPNXT 


we- FOR BRANCHES, WE'VE GOTTA ADD A JMP FOR THE ‘TRUE! 
CONDITION (SINCE WE MOVED THE BRANCH ‘WAY OUTA THE PROGRAM!) 


SET FOR 2ND BYTE 

GET DESTINATION OFFSET 

AND ADD 2 BYTES TO 
CONSTRUCT ABS ADDRESS 

ADD TO SUBJECT-INST ADDRESS 


CARRY IT 


(PLACE-HOLDER WASTE HERE) 
TRUE-BRANCH TO +4 
PUT INTO NEW OFFSET 


GET JMP ADDRESS 
MOVE IT TO 
THE 
BTE FOR 
THE *TRUE* JMP 
SNEAKY BRANCH 
TO EXIT 


GET INDEX 


SAVE IT 
GET SUBJECT-INST PCH 
AND ITS PCL 
SET UP PCH/PCL FOR 
DISASSEMBLER... 


PRINT Y,X BYTES IN HEX 
PRINT ONE 

SPACE HERE 
RESTORE INDEX 


CONVERT TO ADTAB INEX 


"<*' CHARACTER 

PRINT IT 

BTE HE ADDRESS 

SET INDIRECT POINTER 
PRINT HEX BYTE 

GET BTE LO ADDR 

SET INDIRECT POINTER 
PRINT BTE FULL ADDRESS 
">" CHARACTER 

PRINT iT 


--~- DISASSEMBLE THE ORIGINAL INSTRUCTION. PICK UP 
ORIGINAL OPCODE FROM BYTE, ORIGINAL ADDRESS 
FIELD FROM USER PROGRAM LOCATION. 
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PRINT ONE 
SPACE HERE 
INDEX 


GET OPCODE FROM BTE 
PRINT OPCODE 

GET OPCOLE FROM BTE 
AND CET FORMAT/LENGTE 


SNEAK INTO INSDSP @ F8D9 


RESTORE LOCTAE INDEX 
=> DISPLAY THE REST! 


TFO4 
7FF@5 


FFVS 
FFOA 
TFUOD 
WFOF 
7F12 
7FL5 
JFL 


7FIA 
7FiD 
7FIF 
TF26 
JF21 
TF22 
7F24 
7P25 
7F2E8 
JF2E 
FF 2D 
FFF 
7F3L 
7F33 


7TF36 
7F38 
7F3E 
7F3D 
7F4¢ 
JF42 
TF45 
TF47 
7F49 
FFAC 
TF4D 


7F4F 
7F51 
7TF53 
7F55 
TF57 


* KLUGE ENTRY INTO SUBROUTINE 
* WHICH FORCES JSR PRIOR TO 
* A PHa INSTRUCTION. WE HAVE 


* TO JSR TO THIS JMP! 
* 
48 JSRKLUGE PHa PUSH MNEMONIC INDEX 
4C BY F8 JMP X'FeD9! CONTINUE WITH INSTDSP 
kkkkkeEe PND OF KLUGE! #4 *** 
FATT KI KITT TOR KK TT ITT RRR RITE EEK KE KKK AERA KAREN KKK AKER RK KKE 
* REMOVE A& BREAKPOINT AT LOCATION aaaa 
* COMMAND FORMaT: { aaaa Yeo R } 
KHER KKKEKKEKEKEEECKEKKEKKEK EKER REE KKEKEKKEKKKKEKKKKEKKKKEKEKKEKKRKKKEKKKRKK 
ad 3E CMDREMOV LDAZ a2 GET ADDRESS LC 
8D 93 7D sTa FW HOLD IT FOR FINDPC 
A5 3F LDAZ a2B GET ADPRESS Hf 
8D @4 7D STa FW2 
206 86 7D JSR FINDPC A PBREAKPCINT HERE? 
BY 83 PCS REMOV@2 =OYES 
4C 65 FF JMP RESET =>NO: BELL FOR YOU! 
* 
RD WE 7D REMOV#@2 LDAX ADTARB GET TRE LOCTAE ENTRY 
&5 48 STAZ aA3L HOLE iT 
Sa TXaA NOW CREATE LOCTAE INDEX 
Ja abLa 
Aa TAX 
Ad UB LDAIM " CLEAR OUT THE 
a8 TAY APPROPRIATE 
9D 16 7D STAX LOC TAR LOCTAR ENTRY 
90 17 7D STAx LOCTABt1 FOR THIS FPKPT 
ad 7D LDAIM LOWPAGE Hi ADDR FOR BTE 
@5 41 STAZ A3B FOLD FOR ADDRESSING 
Bl 48 LDATY A3L GET OPCODE OUT OF BTE 
91 3E STALY aAzL AND PUT BACK INTO ORIGINAI 
4C 69 FF JMP MON =?ALL DONE. 
KKEEKEKKEEKKEEREKRKAEKKEKEERKEKEKREEREEKKEEEKEEEKEERKEKEKRKKEKKKEKEKKKKEKEKKEEKKE KEE 
* INITIALIZATION CODE. ENTERED av START ALCDR TO INITIALIZE. 
* LT CLEARS LOCTAR, SETS UP TRE Ye AND 'COUT' EXITS. 
* 
* AFTER EVERY ‘RESET’, MUST RESETUP WITH * YoT.. 
KRRERKEEKEEKEEKEKERKERKRKRKKEKRKEKRRKKKKEKRKRKKKKKK RRR KKRKKRKKEKKRKRKRKKKKRKK 
4C INI TX LDAIM x' 4c! JMP OPCODE 
F8 83 STA X'3F8' STUFF IN Yo EXIT LOC 
TC LDAIM KEYIN/ 256 KEYIN: FI ADDRESS 
FA 93 Sta X'3FaA' STUFF INTC JMP 
EW LDAIM KEYINE&X'FF' KEYIN: LO ADDRESS 
FO 43 STA X'3F9' STUFF INTO JMP ADDRESS 
Uv LDAIM 4) 
OF LDXIF i> SNDEX TO LCCTAB END 
16 JD INITVG STAX LOCTAR CLEaR IT OUT 
DEX SO TBERE ARE 
Fe PPi, INITUY NC BREAKPCINTS 
* 
* ---~ ENTER HERE AFTER HITTING ‘'RESET' KEY, PLEASE ~~~ * 
* 
ad CMDINIT LDAIM PREAK& 255 BREAK: LO ADDRESS 
36 STAZ CSWL STUFF INTO ‘'COUT' EXIT HOOK 
7C LDAIM PREAK/ 256 RREAK: HL ADPRESS 
37 STAZ CSWH STUFF INTO ‘COUT’ EXIT HOOK 
69 FF JMP MON INIT CONE: PACK TO MON. 
END 
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TWO APPLE [1 ASSEMBLERS: 
A COMPARATIVE SOFTWARE REVIEW 


Allen Watson 
430 Lakeview Way 
Redwood City, CA 94062 


There are two assembler programs for the Apple !! available from 
independent software vendors: the Microproducts Apple Il 
Co-resident Assembler for $19.95 from Microproducts, 1024 17th 
Street, Hermosa Beach, CA 90254, and the S-C Assembler II for $25 
from S-C Software, P.O. Box 5537, Richardson, TX 75080. The 
features and relative merits of these assemblers are the subject of 
this review. 


Introduction: Software Tools 


Some microcomputer owners hardly ever program, being satisfied 
to run programs written by other people. Others program only in 
BASIC or one of the compiler languages. Then there are those who 
write programs in machine language because the demands they 
make of their computers can be met in no other way. The 
assembler is a software tool which relieves them of much of the 
drudge-work involved in machine-language programming. 


Software tools such as assemblers are much more important than 
their modest sizes might imply, since they: are used over and over 
in the development of other programs. A poor tool is tiring to use 
and causes errors and frustration; a good tool requires minimum 
effort and soon seems like a natural extension of the user. 


Built-In Assembler Features 


The mini-assembler built into the Apple II sets it apart from 
conventional microcomputers. It will probably lead many Apple II 
owners to venture into machine-language programming for the 
first time. 


The mini-assemblers primary function is _ instruction-code 
translation. Instead of remembering all the 6502 numeric opcodes, 
the programmer finds himself thinking in the 6502 mnemonics. 
The word mnemonic just means easy to remember; while letter 
combinations such as CMP and LDA may seem cryptic at first, it 
soon becomes second-nature to read CMP as compare and LDA as 
load accumulator. 


The branch instructions in the 6502 use relative addresses. The 
address that is being branched to has to be converted into a 
one-byte offset value. Doing this by hand is so tedious and prone 
to error that there is even a small slide rule on the market to do the 
hexadecimal arithmetic. The Apple’s mini-assembler and _ its 
companion disassembler take care of this automatically, so that 
the programmer can use the actual address values when he writes 
branch instructions. 


The different addressing modes of the 6502 are handled very 
simply. Indexing is indicated by a comma and X or Y after the base 
address. Parentheses are used to delimit the address of the address 
in indirect-addressing mode, and _ indirect-indexed and 
indexed-indirect addressing are easily distinguished by this means. 


The Apple’s built-in assembler is very convenient, but the 
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machine could do more for him. Obviously, given the right 
program, it can. Enter the full-fledged assemblers, stage right. 


More Assembler Features 


Both of the assemblers described here have all the features of the 
Apple mini-assembler and several more besides. The two most 
important additional features are program editing and symbolic 
addressing. An editor is often a separate program, but since much 
of the value of an assembler would be lost without the ability to 
edit, both of these assemblers include editors and should properly 
be called editor-assemblers. 


Once you face the necessity of re-entering most of a long program 
by hand in order to make room for additional instructions near the 
beginning of the program the need for an editor will be apparent. 
Some machines have editors that work directly on the machine 
code, but the editor portions of both of these assemblers 
manipulate the assembler input data or source file. They enable 
the programmer to add or delete instructions anywhere in the 
program without worrying about the consequences. (Well, almost; 
if the added instructions between a branch instruction and its 
destination increase the displacement to more than 128 bytes, the 
branch is no longer valid and must be replaced by a different 
branch and a jump.) 


Symbolic addressing is one of the most important functions of an 
assembler. The older higher-level language BASIC and FORTRAN 
have symbolic addressing only for variables. The lack of symbolic 
addressing of instructions makes programs difficult to read. 


Address references in assembler language are made by means of 
symbols which are assigned their numeric values when the 
program is assembled. The programmer needn't be concerned 
about the actual addresses except to make sure there is room for 
all of them. But symbolic addressing does more than just eliminate 
a lot of messy bookkeeping: since the symbols are entirely 
arbitrary, the programmer can choose them such that they serve as 
mnemonic labels for all of the important addresses in the program. 
For example, where a BASIC programmer would have to write 
something like GOTO 1275, an assembler-language programmer 
may write JMP DONE, where DONE is both a symbol which 
represents the required address and a label which is meaningful to 
the programmer. 


The Microproducts Co-resident Assembler and the S-C Assembler 
I! both qualify as full-fledge assemblers. They have several features 
in addition to those described above, including: 


(1) loading and saving the assembler input file on tape; 

(2) programmer specification of the starting address in memory 
of the assembled program; 

(3) inclusion of ASCIl character strings and hexadecimal 
numbers as part of the program; and 

(4) the inclusion of comments, explanatory notes which are part 
of the input file but are ignored by the assembler. 


What About Documentation? 


A user's manual is provided with each of these assemblers. The 
Microproducts manual consists of seven pages and is barely 
adequate. It is poorly organized and there are a couple of errors in 
it. The manual for the S-C assembler is more substantial, with 17 
pages of instructions giving complete information for the 
programmer. There are also 10 pages of appendices including a list 
of references and a listing of a printer-driver program. It is clear 
and candid, even pointing out a couple of weak places in the 
program. 


Now For The Bad News 


There are limits to how easy things can be made for the 
machine-language programmer. For one thing, both assemblers 
limit the length of symbols to not more than four characters, and 
special characters are not permitted: only letters and numbers. 
Another joy-killer is the strict formatting of the input statements. 
Labels must be in their specified columns, opcodes in theirs, and 
so on. If there is no label on a particular line, you must skip across 
to the correct column before typing in the operation mnemonic. 


The S-C assembler ameliorates this problem by providing a 
tabulation feature: to skip a field, you just type in a TAB. Since the 
Apple Ii’s keyboard doesn’t have a TAB key, you have to use 
Control-! for-this. The Microproducts assembler makes you count 
spaces, which is downright criminal. Computers can count without 
ever making a mistake, but programmers can’t; therefore 
programmers should never be called upon to count when there is a 
computer available to do it for them. 


Editing With Line Numbers 


Both of these assemblers include editors that work like the BASIC 
editor by using line numbers. The programmer must type a line 
number at the beginning of every line, and the sequence of the 
numbers becomes the sequence of the lines. And woe be unto him 
who accidentally uses the same numbers twice: the lines entered 
earlier will be written over by the later ones having the same 
numbers. If you have never been so careless as to make this error, 
reading about it here will probably suggest it to your subconscious, 
so beware! 


Now suppose that you have just typed in a program that is 250 
lines long, dutifully numbering the Jines in steps of 10, and you 
want to examine an earlier part of the program. What do you do? If 
you have a printer, you can list the whole thing and examine any 
part you want to. Both assemblers include commands for starting 
and stopping a printer. But short of listing the whole program, 
suppose you just want to display part of it on the TV screen. 


Either assembler will enable you to start through the whole input 
file on the TV display and interrupt it when you reach the desired 
part, that is, if you have fast reactions. The S-C program is kinder: 
it has a SLOW mode for displaying. It also lets you specify range of 
line numbers to display, just as you do in BASIC. 


The S-C assembler has another feature which should prove very 
useful: you can APPEND a source file saved on tape earlier onto 
the input file you are currently editing in memory and assemble 
the whole thing as a single program. This makes it possible to build 
yourself a library of standard routines which you can use in several 
different programs with a minimum of effort. 
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Shortcomings of the Microproducts Assembler 


There aren’t a great many nice things | can say about the 
Microproducts assembler. It simply doesn’t do all the things it 
should to help the programmer. For example, error messages are 
output as number codes which you have to look up in the manual. 
If it were programmed to do so, the computer could look them up 
a lot faster and put them out in English. With the S-C assembler, it 
does. 


In the Microproducts version, numeric expressions must include 
leading zeros. If you define a symbol as RATE .DL 5, RATE will be 
assembled as hexadecimal 5000, not 0005.. But what’s even more 
exasperating, once you get it defined as 0005, references to RATE 
will not assemble as zero-page addressing unless you prefix the 
symbol with an asterisk each time it is referenced. This is plain 
inexcuseable: the program should test for this and select the 
appropriate address mode automatically. 


Are There Bugs in the Programs? 


Nobody's perfect, not even the people who write assemblers. No 
matter how hard they try, debugging can’t demonstrate the 
absence of bugs, only their presence. While | haven't tried out 
every feature of these assemblers yet, | have assembled the same 
program on both of them as a comparison. So far | have found only 
one bug in the S-C assembler. If you slip while typing an 
implied-operand instruction without a label and put the 
mnemonic in the label columns thus leaving the operation and 
operand fields blank the assembler will not detect the error but 
instead will repeat the previous instruction. 


The Microproducts assembler has bugs, too. It permits a comment 
on an instruction line, but if the comment is long enough that the 
line exceeds 40 columns so that the display continues on a second 
line, the address and object code which normally appear at the left 
of the screen get written on the second line and obliterate the 
comment. Another bug appears whenever you interrupt a listing, 
which you can do by hitting any key. The Microproducts 
assembler fails to clear the keyboard strobe, causing the key you 
used to interrupt it to become the first character of the next 
command. 


There is a curious error in the Microproducts manual where it 
states that the assembler is less than 3K bytes long, even though it 
loads from 2000 to 2CFF in memory, a total of 3,328 bytes. Just 
coincidentally, the S-C assembler loads from 1000 to 1BFF, making 
it exactly 3K bytes long. 


Wouldn'‘t It Be Nice If...? 


While both of these assemblers are more powerful than the 
mini-assembler, some people are never satisfied. A couple of 
improvements occurred to me as soon as | started using these 
assemblers. 


In a BASIC program, the line numbers are an innate part of the 
program, used as destinations for GOTOs and so on. Assembler 
language doesn’t really use line numbers; these assemblers use 
them only because they make the editor simpler. It would be nice 
if the programmer didn’t have to keep track of a lot of numbers; 
the computer is much better at it. If the editor has to have line 
numbers, an automatic line-number generator would be a nice 
option. 


I’d like to see some kind of LOCATE function, too. Since the line 
numbers don’t bear much relation to the program, especially after 
you’ve used the RENUMBER a time or two, the selective list 
feature of the S-C assembler isn’t 100% effective for displaying a 
portion of the program. What if you don’t remember the line 
number of the instruction you labelled SCAN? Wouldn't it be nice 
if you could type something like LOCATE “SCAN” and have the 
editor search for the line that has SCAN as its label? Some editors 
even have two different forms of this command: one which looks 
only at the beginning of each line, and another which searches all 
the way through each line to find the places where a label is used 
in an operand or in a comment. 


It is interesting to note the similarities between these two 
assemblers. The programs are nearly the same size, about 3K bytes, 
and priced at $20-$25. They use similar input formats and both 
of them do their editing by means of BASIC-type line numbers. 


Where they diverge the advantage is almost always with the S-C 
Assembler It. It has more features and a bigger manual, its error 
messages are output in English, and its format is a more logical 
extension of the Apple I! mini-assembler. If you are the least bit 
interested in machine-language programming on the Apple II, | 
strongly recommend the purchase of a copy of the S-C Assembler 
Ut. 
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APPLE CALLS AND HEX-DECIMAL CONVERSION 
Marc Schwartz 


220 Everit Street 
New Haven, CT 06511 


Rich Auricchio's "Programmer's Guide to the 


Apple II" (MICRO #4, April/May 1978) is a very * FF g PO RETURN 
useful step in getting out printed materials to a FF 3 8 RETURN 
help users fully exploit the Apple's potential. . AT 9 


That his table of monitor routines can be used 
in BASIC programming is worth noting. 

So, $FFFF - $FC58 = $03A7. 
Many monitor routines can be accessed in BASIC 
by CALL commands addressed to the location of 
the first step of the routine. If the routine 
is located in hex locations 0000 to 4000, it is 
necessary only to convert the hex location to 
decimal and write CALL before the decimal num- 
ber. Thus a routine located at hex 1E would be 
accessed by the command: CALL 30, since hex 001E 
= decimal 30. 


Now convert to decimal as above, using BASIC 


(control/C) to assist you. 
>PRINT 0*4096 + 3#256 + 10#16 + 7 


and after pressing RETURN you will have your 
answer, 935. 


4, Add one to the total, here giving 936. 
If you do not have a hex-decimal conversion 5. Make the new total negative, or -936. 
table handy, you can convert larger numbers to 6. That's it. Now just put a CALL in front 
decimal with the help of the Apple by the fol- | Of the number: CALL ~936. 


lowing steps: 
Of course, these steps of converting hex loca- 


1. Start in BASIC (necessary for step 2) 


2. Multiply the first (of four) hex digits 
by 4096, the second by 256, the third by 16 and 
Add the four numbers to get 
For example, to get the 
decimal conversion of 03E7, with the Apple in 


the fourth by one. 
the decimal equivalent. 


BASIC, press Control/C and type 


tions to decimal are the same ones to take if 
you want to access the PEEK or POKE functions of 
the Apple. In all, they allow the BASIC pro- 
grammer to take much fuller advantage of the 
capabilities of the computer. 


And while on the subject of hex-decimal conver- 


sion, the Apple can help in decimal to hex con- 
version as well. For example to find the hex of 
a number, say 8765: 


>PRINT 074096 + 34256 + 14816 + 7 
then press RETURN. You'll get your decimai 
answer: 839. To begin a monitor routine you 
wrote starting at 03E7, merely put CALL 839 in 1. 
your progran. 


Start in BASIC 


2. Divide the number by 4096, then find the 


If the hex location of the routine is between remainder: 


COOO and FFFF, then another method of figuring 


out the corresponding decimal location must be >PRINT 8765/4096 ,8765MOD4096 (return) 


used. 2 573 
1. Start in BASIC 3. Repeat the process with 256 andi6: 
2. Press the RESET button. 
b 3. Take the hex location of the routine and oR INT 573/256 , 573MOD256 (return) 
subtract if from FFFF. The Apple will help you 
do this; subtract each pair of hex digits from oo o1s16, 61 MOD 16 (return) 


FF and press RETURN. The Apple will print the 
answer to each subtraction for you. For example 
the hex location of the routine to home cursor 
and clear screen is $FC58. 


.-@iving 2 2 3 13 or 223C. 
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APPLE II HIGH RESOLUTION GRAPHICS 
MEMORY ORGANIZATION 


Andrew H. Eliason 
28 Charles Lane 
Falmouth, MA 02540 


One of the most interesting, though neglected, 
features fo the Apple II computer is its ability 
to plot on the television screen in a high res- 
olution mode. In this mode, the computer can 
plot lines, points and shapes on the TV display 
area in greater detail than is possible in the 
color graphics mode (GR) which has a resolution 
of 40 x 48 maximun. 


In the high resolution (HIRES) mode, the compu- 
ter can plot to any point within a display area 
280 points wide and 192 points high. While this 
resolution may not seem impressive to those who 
have used plotters and displays capable of plot- 
ting hundreds of units per inch, it is nonethe- 
less capable of producing a very complex graphic 
presentation. This may be easily visualized by 
considering that a full screen display of 24 
lines of 40 characters is "plotted" at the same 
resolution. An excellent example of the HIRES 
capability is included in current Apple II ad- 
vertisements. 


Why, then, has reletively little software app- 
eared that uses the HIRES features? One of the 
reasons may be that little information has been 
available regarding the structure and placement 
of words in memory which are interpreted by HI- 
RES hardware. Information essential to the user 
who wishes to augment the Apple HIRES routines 
with his own, or to explore the plotting possib- 
ilities directly from BASIC. In a fit of cur- 
iosity and Apple-insomnia, I have PEEKed and 
POKEd around in the HIRES memory area. The fol- 
lowing is a summary of my findings. Happy plot- 
ting! 


Each page of HIRES Graphics Memory contains 8192 
bytes. Seven bits of each byte are used to ind- 
icate a single screen position per bit in a ma- 
trix of 280H x 192V. The eighth bit of each 
byte is not used in HIRES and the last eight 
bytes of every 128 are not used. 


The bits in each byte and the bytes in each 
group are plotted in ascending order in the fol- 
lowing manner. First consider the first two 
bytes of page 1. (Page 2 is available only in 
machines with at least 24K). 


BYTE 1 8192 | 8193 | 
SCREEN 

POSITION 012 3 456789 10 11 12 13 
BIT 0123456012 3 4 5 6 
VGVGVGIVIGVG VG VIG 
| ae 
(Bit 7 not used) 7 T 

V = VIOLET 

G = GREEN 


Figure 1 represents the screen position and res- 
pective bit & word positions for the first 14 
plot positions of the first horizontal line. If 
the bit is set to 1 then the color within the 
block will be plotted at the position indicated. 
If the bit is zero, then black will be plotted 
at the indicated position. It can be seen that 
even bits in even bytes plot violet, even bits 
in odd bytes plot green and vice versa. Thus 
all even horizontal positions plot violet and 
all odd horizontal politions plot green. To 
plot a single white point, one must plot the 
next higher or lower horizontal position along 
with the point, so that the additive color prod- 
uced is white. This is also true when plotting 
single vertical lines. 


The memory organization for HIRES is, for design 
and programming considerations, as follows: 


Starting at the first word, the first 40 bytes 
(0-39) represent the top line of the screen (40 
bytes x 7 bits = 280). The next 40 bytes, how- 
ever, represent the 65th line (i.e., vertical 
position 64). The next 40 bytes represent the 
line at position 128 and the next 8 bytes are 
ignored. The next group of 128 bytes represent 
three lines at positions 8, 72 and 136, the next 
group at positions 16, 80 and 142, and so on un- 
til 1024 bytes have been used. The next 1024 
bytes represent the line starting at vertical 
position 1 (second line down) in the same man- 
ner. Eight groups of 1024 represent the entire 
screen. The following simple porgram provides a 
good graphic presentation as an aid to under- 
standing the above description. Note that there 
is no need to load the HIRES machine language 
routines with this program. Set HIMEM:8191 
before you type in the progran. 


100 REM SET HIMEM:8191 

110 REM HIRES GRAPHICS LEARNING AID 

120 POKE -16304,0: REM SET GRAPHICS MODE 
130 POKE -16297,0: REM SET HIRES MODE 

140 REM CLEAR PAGE - TAKES 20 SECONDS 

150 FOR I=8192 TO 16383: POKE I,0: NEXT I 
160 INPUT "ENTER BYTE (1 to 127)", BYTE 

170 POKE -16302,0: REM CLEAR MIXED GRAPHICS 
180 FOR J=8192 TO 16383: REM ADDRESS' 


190 POKE J,BYTE: REM DEPOSIT BYTE IN ADDRESS 
200 NEXT J . 
210 POKE ~16301,0: REM SET MIXED GRAPHICS 
220 GOTO 160 

999 END 


An understanding of the above, along with the 
following equations will allow you to supplement 


the HIRES graphics routines for memory efficient 
programming of such things as: target games, 3D 
plot with hidden line supression and 3D rota- 
tion, simulation of the low resolution C=SCRN 
(X,Y) function, etc. Also, you may want to do 
some clever programming to put Flags, etc., in 
the unused 8128 bits and 512 bytes of memory! 
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HI RES Graphics Equations and Algorithms 


Where: 


FB = ADDRESS OF FIRST BYTE OF PAGE. 
PAGE1 = 8192 PAGE 2 = 16384 
= HORIZONTAL PLOT COORDINATE. 0 TO 279 
LV = VERTICAL PLOT COORDINATE. 0 TO 191 


BV = ADDRESS OF FIRST BYTE IN THE LINE OF 
40 

BY = ADDRESS OF THE BYTE WITHIN THE LINE 
AT BV 


BI = VALUE OF THE BIT WITHIN THE BYTE 
WHICH CORRESPONDS TO THE EXACT POINT 
TO BE PLOTTED. 


Given: FB,LH,LV 
BV = LV MOD 8 * 1024 + (LV/8) MOD 8 * 128 
+ (LN/64) * 40 + FB 
= LH/7 + BV 
BI = 2°(LH MOD 7) 


To Plot a Point (Without HIRES Plot Routine): 


LH = X MOD 280 : LV = ¥ MOD 192 (oR) 
LV = 192-Y MOD 192 
FB = 8192 
BV = LV MOD 8 # 1024 + (LV/8) MOD 8 * 128 + 
(LV/64) * 40 + FB 
BY = LH/7 + BV 
BI = 2°(LH MOD 7) 
WO = PEEK (BY) 


IF (WO/BI) MOD 2 THEN (LINE NUMBER + 2) 
POKE BY, BI + WO 

RETURN 

To Remove a Point, Substitute: 


IF (WO/BI) MOD 2 = 0 THEN (LINE NUMBER + 2) 
POKE BY, WO-BI 


To Test a Point for Validity, the Statement: 


"IF (WO/BI) MOD 2" IS TRUE FOR A PLOTTED POINT 


AND FALSE (=0) FOR A NON PLOTTED POINT. 


MOS 16K RAM FOR THE APPLE II 


Allen Watson III 
430 Lakeview Way 
Redwood City, CA 94062 


MOS 16K dynamic RAM is getting cheaper. At the 
time of this writing, one mail-order house is 
offering 16K bytes of RAM (eight devices) for 
$120. Apple II owners can now enhance their 
systems for less than the Apple dealers’ price. 
However, there is a potential drawback to the 
purchase of your own 16K RAM chips: speed. You 
may wonder why, since the Apple's 6502 CPU is 
running at only about 1 MHz, but things aren't 
quite that simple. 


To begin with, the Apple II continually refresh- 
es its video display and dynamic RAM. It does 
this by sharing every cycle between the CPU and 
the refresh circuitry, a half-cycle for each. 
This means that the RAM is being accessed at a 
2 MHz rate. 


That doesn't sound too fast, with the slowest 
16K parts rated at 300ns access time; but you 
have to remember that the RAM chips are 16-pin 
parts by virtue of a multiplexed address bus. 
There are two address-strobe signals during each 
memory access cycle, and the access-time specif- 
ication will be met only if the delay between 
these strobe signals is within specified limits. 
In the Apple II this delay is 1l40Ons, which is 
too long. Furthermore, the Apple II timing 
doesn't allow long enough RAS precharge or row- 
address hold time for the slow parts. Judg- 
ing by the spec sheets, 200ns parts are prefer- 
able to 250ns parts, and 300ns parts shouldn't 
be used at all. In my Apple, 300ns parts caused 
a zero to turn into a one once in a while. 


Many mail-order houses do not mention device 
speeds in their ads. The best thing to do is to 
deal only with those suppliers who specify 
speeds, but for those who didn't, the table 
below shows the codes used by some 16K dynamic 
RAM manufacturers to indicate the speeds of 
their devices. -Good luck, and caveat emptor! 


SPEED CODES USED BY 16K DYNAMIC RAM MANUFACTURERS 


Access Time (ns) 


Manufacturer Part. No. 150 200 250 300 


AMD 9016 -F -E -D -C 
Fairchild F16K -2 -3 -4 =-5 
Intel 2117 -2 -3 «i 
MOSTEK 4116 ~2 -3 =4 
Motorola MCM4116C -15 ~20 -25 -30 
National MM5290 -2 -3 -4 

NEC MD416 -3 -2 -1 

T I 4116 -15 -20 -25 
Zilog Z6 166 -2 -3 -4 
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LIFE FOR YOUR APPLE 


Richard F. Suitor 
166 Tremont St. 
Newton, MA 02158 


A listing of LIFE for the APPLE II is described 
briefly here (see MICRO #5 for a pet version and 
discussions). Because my experience with gener- 
ation time in BASIC paralleled Dr. Covitz', the 
generation calculations are in assembly lang- 
uage. The display is initiated in BASIC and the 
routines are called from BASIC, which will slow 
down the generation time if desired. 


The entire (40x48) low resolution graphics disp- 
lay is used. An unoccupied cell is 0 (black). 
An occupied one is 11 (pink). During the first 
half of a generation, cells that will die are 
set to color 8 (brown). Those to be born are set 
to color 3 (violet). During this stage, bit 3 
set indicates a cell is alive this generation; 
bits 0 and 1 set indicate a cell will be alive 
the next). During the second half (mop-up) part 
those with bits 0 set are set alive (color 11), 
the rest are set to zero. 


The BASIC program allows one to set individual 
cells alive, and to set randomly 1 in N alive in 
a rectangular region. The boundries (X = 0 and 
39; Y = 0 and 47) do not change, but may be in- 


*LIST 
1 TEXT 
@ GENSE OSE 
& MOPS22e5 
S DIM ABC? 
F Ki=t 
& Ke=1 
10 CALL -9368: VTAB St TAE 9: PRINT 
“COMMAY’S GAME OF LIFE" 
20 ¥YTAB 15 PRINT “INITIATE PATTERN 
BELOW. %<0 WILL START” 


35 PRINT “THE LIFE FROCES2. A Yen 
WILL &IVE A" 

40 PRINT “RANDOM PRTTERN WITH ONE I 
NM ALIVE" 

SO VTAB 22: INPUT 
HE" s Ay 

39 G6OTO toon 

100 REM 

10e FORE -1léestes to 

103 EBOTO isn 

104 FOR I=1 TO k= 

105 CALL GEN 

in’ FOF &F=1 TO Es 

110 CALL MOF 

112 FOR €=1 TO Ees 

120 NEXT I 

130 FEM 

131 ExX= FDL 

Se IF kHte40 THEN KX=Ee1 

25 IF ER<0 THEN Ee=o 

40 Kkil=Kkxee 

SO Keskxec 

158 KS=S00- ch14505 41 

160 GOTO 104 


"RETURM TO CONTIN 


HEAT E 


HEAT EF. 


f02-10 


itialized. At the start of the program, NO PAD- 
DLE INTERVAL? is requested. If during the pro- 
gram the paddle reads close to 255 (as it will 
if none is connected) the number input here will 
be used instead. Zero is fastest, several gen- 
erations per second. Entering 200 gives a few 
seconds per generation. 


When X and Y coordinates are requested, put in 
the coordinates for any cells to be set alive. 
A negative X terminates this phase. Setting X=N 
and a negative Y will initialize a rectangular 
region to 1 in N randomly occupied and terminate 
the initialization. The boundaries of the rect- 
angular region must be input and may be anywhere 
in the full display. A glider gun can be fit 
vertically in the display. However, don't init- 
ialize for Y 40 (other than random) for the 
scrolling during initialization input will wipe 
it out. 


Before RUNning the BASIC program, set LOMEM: 
2500 to avoid overwriting the subroutines. 


1000 GF 
1H10 CALL - 936 


1020 INPUT "HO FADOLE TIME INTERVAL 
skei 

©1100 COLOFH11: IHFUT “INPUT Ks 
sey 

1i05 IF Yeu THEM leon 

1110 IF #20 OF Y<0 THEN eho 

1120 IF w#es9 OF Y239 THEN 1100 

i130 SLOT &s7: BOTO 1100 

lent INFUT “s DIRECTION LIMITS 
sTisle 

tein IF Tico OF leraa OF Title THEH 
penn 

1320 INPUT “TY DIRECTION LIMIT: 
s tis te 

1820 TF Jbc0o OF Jes4r Ge Jts lic THEN 
1Sse20 

FOO CALL -35e2 DF 

el FPOFE -iestes a 

ete CALL -199s 


chads FOF I=l1 Ta fe 
enig FOR J=J1 TO Je: COLOF=11: IF 
RAND «xo THEN COLOF=0 


euttit FLOT Is 

SOS0 HET J 

eu4a HEXT I 

cigd GOTO 100 

S300 FORE -1630e2s 0 


2510 COLOF=0 

cseh FOF K=40 TO 47 
S530 HLIN Os39 AT EK 
es4h HEAT & 

es30 GOTO 100 

agnd EMD 


nen 
Neos 
Os 4 
oso8 
ns oe 
nsog 
ESE =: 
neon 
ne oF 
O11 
NS13 
N15 
isi? 
nei 
NS1E 
nail 
Ne1F 
toa | 
NSe3 
nse 

nse 


Wace) 


is fu Ps 


Mm bo oo 


Ve Cle el 


AS tie 


a 


ae Ye 
A 


wi ofl: 
OA fa 3 


i 85 13 ~) . O77 Oe 


nh 


on 


te! 
t 


Wo i wu oN 


hike pO Ih Dei ak De he 


1 Ott 


a1) 5 


CUAL 


‘= - ~ - 


S47 008 
Bite 
Fae 
1 tie 
FEdn0S 
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60230 AzA+1 : C=PEEK(A)-48 : IF C=-16 GOTO 60230 
: GOTO 60230 


60240 IF C>=0 AND C<9 THEN V=V#10+C 
60250 S+44 : A=A-1 : RETURN 


RESEQUENCE can sit quietly behind your progran. 
When you say RUN 60010, your program is renun- 


bered. RESEQUENCE gives error notices if: 


A. a GOTO or GOSUB statement wants to go to 
a non-existant line; 


B. there isn't enough room for a new (higher) 


line number. 


In both cases you're given the (new) line number 
where this happens. RESEQUENCE doesn't run fast 
(allow about a second per line, more for large 
programs), but it's dependable and very useful. 


Program comments: Line 6000 stops the user pro- 
gram if it gets here. Lines 60010-60020 extract 
all GOTO, GOSUB, and THEN references and build 
them into a table. Lines 60030-60040 renumber 
all lines, and cross-references the table if 
needed. Line 60050 updates all line references. 


Subroutines: 60070 looks for an entry in the 
line number table. 60090 inserts a new entry 
into the table. 60110 revises a line number 
reference. 60160 starts a new scan of the user 
program; 60170 continues the scan with the next 
line. 60210 scans the user program for GOTOs, 
etc.; value S is used to accomodate ON A GOTO 
-.. type situations. 





AN APPLE II PAGE 1 MAP 


M.R. Connolly Jr. 
2009 Rickwood Ct. NW 
Huntsville, AL 35810 


In the Apple II, the on-screen text is stored in 
locations $400 through $7FF. Trying to deter- 
mine just where a particular spot resides in 
memory isn't easy. The page lines are stored 
neither consecutively nor sequentially. The 
APPLE page 1 map shows in hex and decimal the 
starting and ending locations of each line on 
the screen. Any given line is sequential from 
space 1 through space 40; eg, the 20th position 
of any line is equal to the beginning location 
+19 decimal or 14 hex. 


The value of the page map becomes apparent when 
used with a listing of the interpretation of 


numbers stored in the map. Any normal, inverse, 
or flashing character, or white block, black 
block, or cursor block may be positioned merely 
by poking the correct value in the location 
storing the page position you require. 


You might pass this off as just "nice to know" 
information, but it is very useful if, for in- 
stance, you are trying to make an impressive 
title page for a program you've spent weeks 
writing. Run the following short program, then 
try to duplicate it without using the page map 
and the character chart. It isn't easy! 


10 CALL -936: FOR I = 1205 TO 1217: POKE 1,32: POKE I+ 512,32: NEXT I 
20 FOR I = 1333 TO 1589 STEP 128: POKE I,32: POKE I+ 12,32: NEXT I 
30 POKE 1463,141: POKE 1465,9: POKE 1467,67: POKE 1469,18: POKE 1471,207 


40 GOTO 40 


MAP OF LINE AND SPACE LOCATIONS FOR TEXT PAGE 1, APPLE II COMPUTER 


LOCATION . 
LINE HEX ~ ‘DECIMAL 

1 400-427 1024-1063 
2 480-4A7 1152-1191 
3 500-527 1280-1319 
4 580-5A7 1408-1447 
5 600-627 1536-1575 
6 680-6A7 1664-1703 
7 700-727 1792-1831 
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8 780-7A7 1920-1959 
9 428-A4F 1064-1103 
10 4A8-4CF 1192-1231 
11 528-54F 1320-1359 
12 5A8-5CF 1448-1487 
13 628-64F 1576-1615 
14 6A8-6CF 1704-1743 
15 728-74F 1832-1871 
16 7A8-7CF 1960-1999 


Not used for on-screen display: 
6F8-6FF; 778-77F; 7F8-7FF 
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MACHINE INTERPRETATION OF VALUES STORED IN $499.7FF APPLE II COMPUTER 
INVERSE 


NORMAL 

128,192 
129,193 
130,194 
131,195 
132,196 
133,197 
134,198 


135,199 


136 ,200 
137,201 
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1104-1143 
1232-1271 
1360-1399 
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EXPLORING THE APPLE I! DOS 


Andy Hertzfeld 
2511 Hearst St. Apt. 204 
Berkeley, CA 94709 


To say that the documentation which comes with Apple’s Disk I 
system is skimpy is being very kind. Only a terse description of 
each DOS command is provided and absolutely zilch is said about 
its memory usage or internal structure. Hopefully, Apple will soon 
remedy this situation but until that time hobbyists must rely on 
each other for the vital information. | have been exploring the 
internals of the DOS for the last few months; this article 
summarizes some of the interesting things I’ve found. 


The DOS resides in the highest portion of your system’s memory 
-and is about 10K bytes long. Its exact size depends on how many 
file buffers you choose to allocate (one file buffer is needed for 
each simultaneously open file). Each file buffer is 595 bytes long 
and the system provides you with three to start with (you must 
have at least one). 


The DOS communicates with the rest of the system via the input 
and output hooks CSW and KSW located at $36 - $39 (This article 
uses “$” to indicate a hexadecimal number). Through these hooks 
it is given control every time a character is inputted or outputted. 
This is a nice scheme because it allows the DOS to be called from 
any environment (BASIC, Monitor, Mini-Assembler, etc.) but it has 
the drawback of activating the DOS when a command is typed as 
input to a user program, which is usually not what you want. Also, 
since the reset button resets the hooks, the DOS is disabled 
whenever the system is reset, which isn’t so great. 


The process of loading the DOS into memory for the first time is 
called “bootstrapping.” Bootstrapping is initiated when control is 
transferred to the PROM on the disk controller card. Memory 
pages 3 and 8 are blown by a bootstrap. There are two different 
types of disks you can boot from: masters and slaves. The 
distinction is that a master disk can be used to bootstrap on a 
system of arbitrary memory size while a slave will only work 
properly on a system with the same memory size as that which 
created it. This is because since the DOS sits at the top of memory, 
its addresses (for JSRs, JMPs, etc.) will be different on systems with 
different memory sizes. A master disk cleverly solves this problem 
by loading into low memory first and then relocating itself up to 
where it belongs. Note that this means that a master bootstrap will 
blow alot of additional memory. 


All addresses in this article are for a 48K system. If your system has 
memory size X, subtract 48K - X from the addresses that are given 
here. 


A call to the routine at $9DB9 will initialize or re-initialize the 
DOS. This routine should be called after every reset to restore the 
hooks. It is exactly like typing “3DO” “G” as Apple’s 
documentation recommends but is a little bit safer since the $3DO 
location is often destroyed by various programs. 


Every diskette has a volume number from 1 to 254 associated with 
it. It is assigned when the diskette is initialized and there is 
currently no easy way to change it. The volume number of the 
current disk is stored at $B7F6. Before most DOS commands the 
system checks to see if the current volume number matches the 


last volume number used. If it doesn’t, a “volume mismatch” error 
is generated. While this “feature” may be nice for large business 
applications that don’t want dumb operators inserting the wrong 
disks, it is very annoying to most average users, especially when 
you want to transfer a number of programs between two disks with 
different volume numbers. After much searching, | located the 
place where the volume check is performed and devised a patch to 
disable it. It’s only two bytes long; just enter the monitor and type: 
“BDFE: A9 00”. This will disable all volume checking until the next 
boostrap. It works by replacing the comparison instruction which 
performs the volume check with a “ LDA #0 ” instruction which 
sets the “equality” or Z flag, effectively forcing the match to 
succeed. 


Binary files of arbitrary length can be saved on disk with the 
“BSAVE” command. Each BSAVEd file has an implicit starting 
address and length associated with it; when the file is BLOADed it 
is loaded at the starting address. Unfortunately, there is no way 
provided for a user to find out the starting address and length of a 
BSAVEd file; this makes copying files that you are not intimately 
familiar with very difficult. 


Fortunately, when a file is BLOADed, the directory record of the 
file is always placed in a buffer in a fixed location. The buffer 
contains the starting address and length of the file as well as other 
useful information. The length is kept at memory locations $A9A3 
- $A9A4 while the starting address is stored at $A9B5 - $A9B6 (with 
the least significant byte first, as usual). Thus to retrieve the 
starting address and length of a BSAVEd program you can simply 
BLOAD it and then peek at the above locations. 


Some people might wish to alter the names of some of the DOS. 
commands to suit their own, personal tastes (it is, after all, a 
personal computer). For example, |! know many folks would like to 
abbreviate the “CATALOG” command to a simple “C”. This is 
surprisingly easy to do; since the DOS lives in RAM the contents of 
its command table are easily changed. The command table is 
located from $A7EO - $A863. Each command name is represented 
as an ASCII string with the high bits off, except for the last 
character of the string, which has its high-order bit set. The strings 
are associated with the commands by their position in the 
command table (the first string corresponds to the INIT command, 
the second to the LOAD command, etc.). The position of every 
command is given below in Table 1. | 


Thus you can dream up your own names for the commands by 
storing new strings in the command table. For example to change 
the name of the INIT command to “DNEW” you would enter the 
monitor and type “” A7EO: 44 4E 45 D7”. However, some caution is 
required when you change the length of a command name; in 
general you will probably have to rewrite the entire command 
table to achieve the desired affect. 


The error message table is stored at addresses $A8CD - $A980. 


By using the same techniques described for the command table, 
you can rewrite the error messages to be whatever you like. 


TABLE 1: POSITION OF COMMANDS IN THE COMMAND TABLE 


The position refers to which string in the command table is 
associated with the command. 1 means its the first string, etc. 


Position Command 
1 INIT 
2 LOAD 
3 SAVE 
4 RUN 
5 CHAIN 
6 DELETE 
7 LOCK 
8 UNLOCK 
9 CLOSE 
10 READ 
11 EXEC 
12 WRITE 
13 POSITION 
14 OPEN 
15 APPEND 
16 RENAME 
17 CATALOG 
18 MON 
19 NOMON 
20 PR# 
21 IN# 
22 MAXFILES 
23 FP 
24 INT 
25 BSAVE 
26 BLOAD 
27 BRUN 
28 VERIFY 


It is hard to use the input and output hooks in conjunction with 
the DOS since you cannot simply change the hooks as they are the 
DOS’ only contact with the rest of the system. Also, if you only 
change one of them, the DOS has the nasty habit of changing it 
back. Fortunately, the DOS has its own internal hooks it uses for 
keyboard input and video output. Its output hook is at $A996 - 
$A997 and the input hook immediately follows at $A998 $A999. If 
you change the contents of these addresses instead of the usual 
hooks at $36 - $39, everything should work just fine. For example, 
lets say you wanted to divert output to a line printer without 
disabling the DOS. If the line printer output routine is located at 
$300, all we would have to do is enter the monitor and type ” 
A996: 00 03 ”. 


To execute a DOS command from a BASIC program, you simply 
print it, prefixing it with a “control-D”. The prefix character is 
stored at memory location $A9F5, with its high-order bit set. Thus, 
if you don’t like control-D and wish to use some other prefix 
character, all you have to do is store a different character value 
into $A9F5. 


1 am very curious to find out the primitive instructions the DOS 
uses to communicate with the disk controller, but without proper 
documentation it is very difficult to determine what does what 
(Can someone out there help me?). | have managed to find out the 
primitives that turn the drive on and off, though. If your controller 
card is in slot S, referencing memory location $C089 ft $SO will 


power up the disk and start it spinning while referencing $C088 t 
$SO will turn it back off. 


This article is merely the tip of the proverbial iceburg; most of the 
DOS’s internals still remain a mystery to me. | hope Apple 
eventually distributes complete documentation but until then 
other curious users can use this article as a starting point for their 
own explorations and hopefully report back what they find. Table 
2 (below) contains a summary of important addresses in the DOS 
for easy reference, including some not mentioned in the above 
commentary. 


TABLE 2: IMPORTANT ADDRESSES IN THE APPLE 11 DOS 


Address Function 

$B7F6 holds the volume number of the 
current diskette 

$9DB9 routine to re-initialize the DOS 

$A9E5 location of printing command 
character, initially set to control-D 

$A9B5 - $A9B6 Starting address of most recently 


loaded program, Isb first 


length of most recently loaded 
program 


$A9A3 - $A9A4 


$A7E0O - $A863 the DOS command table 


$A8CD - $A980 the DOS error message table 

$A996 - $A997 the internal hook address to output a 
character 

$A998 - $A999 the internal hook address to input a 


character 
$C089 t+ $SO0, S= slot no.* address to power up the disk 


$C088 t $S0, S= slot no.* address to power down the disk 


$9E4D routine which handles the input 
hook 

$9E7E routine which handles the output 
hook 


routine which reads in the directory 
off the disk. It is called by virtually 
every DOS command 


$BD00 


All addresses given (except those marked with an asterisk) refer to 
a system with 48K bytes of memory. If your system has memory 
size X, subtract (48K-X) from each address. 


HOW DOES 16 GET YOU 10? 


Gary P. Sandberg 
1144 Amber Ridge Drive 
Lilburn, GA 30247 


In order to PEEK, POKE, figure CALL numbers, etc. effectively a that required hexadecimal addressing and coding. When I started 
knowledge of Hexadecimal / Decimal conversion is a necessity. using my Apple II, | was completely lost and confused with base 16 
My experience during the past ten years, working with computer math. | began looking for a way to work with hexadecimal 
systems and data processing equipment did not include anything effectively. The following conversion table was the answer. 


HEXADECIMAL / DECIMAL CONVERSION TABLE 


16° 164 161 16% 
0 J 0 0 0: 
a 4,096 256 16 1 
2 8,192 512 32 2 
3 12,288 768 48 3 
4 16,384 1,024 64 4 
5 20,480 1,280 80 5 
6 24,57 1,536 96 6 
7 28,672 1,/92 112 7 
8 532,768 2,048 128 8 
9 36,864 2,504 144 9 
A 40,960 2,560 160 10 
B 45,056 2,816 176 ll 
C 49,152 3,072 192 12 
D 53,248 3,328 208 13 
E 57,344 3,584 224 14 
F 61,440 3,840 240 15 
To convert a number from hexadecimal to decimal; To convert a number from decimal to hexadecimal; 
1. in each column of the table, find the decimal equivalent for the 1. In the table find the largest decimal value that will fit into the 
hexadecimal digit in that position. decimal number to be converted. 
2. add the decimal equivalents, found in step #1, to obtain the 2. note its column position and hexadecimal equivalent. 
decimal number. | 3. find the decimal remainder (subtract) 
4. repeat steps 1, 2, & 3 for each remainder. When a hexadecimal 
Hopefully the following examples will help you master the use of equivalent has been found in the right most column, the 
the conversion table. conversion is done. 


Convert Hex to Decimal using the conversion table. 





169 16° 16 16° Convert from left to right. 
E46 = 14 
5 = 80 list and 
E = 3584 ADD TOGETHER 
F = 61440 
PESE.6 = 65118.) 


Convert Decimal to Hex using the conversion table. 


16> 


65118 
-61440 
3678 

- 3584 
Q4 
-80 from table 

14. from table 


from table F 


from table 


65118.) 


Remember the Apple I!’s system monitor can help you with some 
of your hexadecimal problems. The monitor will do hexadecimal 
addition and subtraction, as shown on page 70 of the Apple I! 
reference manual. 


The Apple II’s PEEK function also can be helpful. In BASIC key in 
PRINT PEEK (2), the Apple I! will display on the screen the decimal 
value of decimal memory location 2. 


Use the POKE statement to change memory location 2, In BASIC 
key in POKE 2,255, then Return. Then PRINT PEEK (2), Return. The 
Apple will display 255. 


16° 3616) 16° 
E 
5 
E 
FESE, ¢ 


Then CALL -151, or hit Reset. The Apple I! is now in the System 
Monitor. Key in 0002 or 2, Return, and the Apple Il displays 
0002-FF. Why?, because we put the decimal value 255 into 
memory location 2 with the POKE statement, 255(10) is equal to 
FF(16), get the idea? 


For some conversions from hexadecimal to decimal or back the 
other way, you can use the POKE and PEEK method, but for most 
conversions use the table. 


Here are two more examples that don’t use a conversion table: 
same numbers different method of conversion: 


Convert Hex to Decimal without using the conversion table. 


First digit is * 4 
Second digit is * 16 
Third digit is * 256 


Fourth digit is * 4096 





E*® 1 = 14 

5 #16 = 80 

E #* 256 = 3584 

F # 4096 = 617440 
FESE J = 65118, 


Convert Decimal to Hex without using the conversion table. 


65118 / 16 = 4069.875 => .875 * 16 = 14 = E 
4069 / 16 = 254.3125 => .3125 # 16 = 5 = 5 
254 / 16 = 15.875 .875 *® 16 = 14 = E 
15 / 16 = -9375 -9375 * 16 = 15 = F 
65118, ,, = PESE. 6 


Use either method to convert from one number system to the 
other, and with a little practice you will be converting numbers 


with speed and accuracy. 


APPLE If - TRACE LIST UTILITY 
Alan G. Hill 
12092 Deerhorn Rd. 
Cincinnati, OH 45240 


Did you ever use the TRACE function in tnteger BASIC, only to 
give up in despair after looking at a screeen full of line numbers? 
Try it without a printer and you may never use TRACE again! Well, 
here’s the utility that will put TRACE back into your debugging 
repertoire (for those of us who need a little help getting it right.) 


The utility presented here will list each BASIC program source 
statement line by line in the order executed. There’s no need to 
refer back and forth between TRACE line numbers and the source 
program listing. Two versions are presented: Version 1 is a 
real-time utility; i.e. each statement is listed immediately prior to 
execution so you can follow the programs logical sequence. You 
can slow the execution rate down or even temporarily halt 
execution while you scan the screen. Version 2 only saves the line 
numbers of the last 100 lines executed for listihg later. Version 3 
could be useful in tracing a full-screen graphics program. 


The Technique 

The program utilizes the COUT hook at $36.37 to intercept and 
suppress TRACE printing. All other printing continues normally 
with one exception (see Warning #1). Before returning to the 
BASIC interpreter, the line number is picked up and pushed into an 
array (TR) in the variables area above LOMEM. If the number is the 
same as the previous line number, a zero line number is placed in 
the stack with the line number of a FOR | = 1 to 1000: NEXT I 
delay loop, for instance. When the number changes, it will be 
placed in the stack. The most recent 100 line numbers are saved. 
Tracing is performed under user control by the normal 
TRACE/NOTRACE statements. In Version 2, the lines may then be 
listed after the test program ends. The technique in Version 1 is 
similar with one distinction. The trace intercept routine transfers 
control to the utility program to list the line as soon as it is put in 
the stack. 


How The TRACE Intercept Routine Works 

The output pointer in $36.37 is initialized by the utility to the 
address ($300) of the Trace Intercept Routine. Each character is 
examined by TIR as it comes through if the TRACE flag is up (bit 7 
of $AO on). If off, TIR jumps back to the normal print utility at 
$FDFO. If the character is a # ($A3), it is assumed that a line 
number follows. Every line number in the stack is pushed down 
and the current line number is placed at the top. Location $0C.DD 
points to the BASIC line about to be executed. The line number is 
in the second and third bytes. In Version 2, TIR returns to the 
interpreter. In the real-time version (Version 1), control is next 
transferred to the utility program at line 30020. TIR expects that 
the address of line 30010 has been saved in $15.16 by the utility 
programs CALL 945 in line 30010. TIR first saves the contents of 
$DC.DD and then replaces it with the contents of $15.16: It also 
saves the address of the current statement within the BASIC line. 
That is, the contents of $EO.E1 are saved at $1B.1C. TIR can now 
transfer control back to the interpreters continue entry point by a 
JMP $E88A which then executes line 30020 of the utility. The 
current line of the test program is listed; the BASIC pointers are 
restored by the CALL 954 in line 30090; the return address is 
popped; and control is returned to the test program through $E881. 
Fait accompli. 


As mentioned previously, the TR array is used to save the line 
numbers. The array is set up the first time TIR is entered. Note that 
TR is intentionally not DIMensioned in the utility. TIR must handle 
that task since a RUN of the test program will reset the variables 
area pointer ($CC.CD) back to LOMEM. 


Programming The Routines 
TIR starts at $300. It could be relocated if the absolute references 
in the POKE and CALL statements are changed. Also note that the 
LIST statement in lines 30060 and 32040 will not be accepted by 


the Syntax checker. They must first be coded as PRINT statements, 


located, and changed to LIST tokens ($74) using the monitor. This 
is more easily done if these lines are coded and the tokens 


changed before the remaining lines are entered. See example 
below for the case where HIMEM is 32768: 


NEW 

30060 PRINT EXECLINE 
32040 PRINT TR (1) 

(hit reset to enter monitor) 
*7FEC;74 

*7FF9:74 

(enter Control/C) 

LIST 

30060 LIST EXECLINE 
32040 LIST TR (I) 


Using The Utility 
1. After coding the assembler and BASIC utility programs, the 
test program is then appended. This may be done by a RUN 
31000. Start the cassette recorder and hit Return when 
prompted. The test program will be appended to the utility 
program provided its highest line number is less than 29970. 


2. Create a line O that will be used to indicate that a line has 
successively executed. For example, code: 
O REM ***ABOVE LINE REPEATED*** 


3. Run the utility of your choice: 
RUN 30000 Version 1 (Real-time list) 
or RUN 32000 Version 2 (Post-execution list) 


4. Insert the TRACE/NOTRACE statements wherever desired in 
test program. Just enter the TRACE command directly if you 
want to trace the entire program. Also see Warning #1. 


5. RUN the test program. 


6. Display the results: 

A. Real-time Version: The lines will be listed automatically 
as executed. Note the FOR: NEXT loop in line 30090 can 
be adjusted to control the execution rate. The upper limit 
could be PDL(O), thereby giving you run-time control 
over the execution rate. Note also that execution can be 
forced to pause by depressing paddle switch O. 
Execution will resume when the switch is released. 
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B. Post-execution Version: After stopping or ending the 
program, enter a GOTO 32020 command. The first page 
of statements will be displayed. Enter a “C” to display 
additional pages, aT” to reset for another test run, or an 
“E” to return to BASIC. Note that even if you have traced 
with Version I, you can still display the last 100 lines with 
Version 2. 


Sample Run 


Test Program 


0 REM ### REPEATED ### 

10 TRACE 

30  GOSUB 100+RND(3) *10 

40 =69FOR I=1 TO 10: NEXT I 
50 GOTO 30 

100 PRINT "LINE 100":RETURN 
110 PRINT “LINE 110":RETURN 
120 PRINT "LINE 120":POP 
125 NO TRACE: END 


> RUN 30000 
> RUN 


Trace Output 


30  GOSUB 100+RND(3)#10 

110 PRINT "LINE 110":RETURN 
LINE 110 

30 GOSUB 100+RND(3)#10 

40 =©69FOR I=1 TO 10:NEXT I 

0 REM **# REPEATED ### 


50 @©GOTO 30 

30 GOSUB 100+RND(3)#10 

120 PRINT "LINE 120":POP 
LINE 120 

125 NO TRACE: END 


> 


For a slow motion game of “BREAKOUT”, trace it with the 
real-time version! 


Hints And Warnings 
It’s usually a good idea to deactivate TIR after the test program has 
ended by hitting Reset and Control/C and entering NOTRACE. 
Don’t try to trace the test program without first running the utility 
program at line 30000 or 32000. 


To increase the debugging power of the real-time trace utility, 
make liberal use of the push button to halt program execution. 
With practice and the proper choice of the delay loop limit in line 
30090, you can step through the program one line at a time. Enter a 
Control/C while the push button is depressed and execution will 
be STOPPED AT 30070. You can then use the direct BASIC 
commands to PRINT and change the current value of the programs 
variables. Enter CON and execution will resume. 


With additional logic in the utility program, you can create 
specialized tracing such as stopping after a specified sequence of 
statements has been detected. Return via a CALL 958 if you don’t 
want TRACE turned back on. 


Tracing understandably shows the execution rate of your program, 
but you probably aren’t concerned with speed at this point. 
However, the wise use of TRACE/NOTRACE will help move things 
along. Also, when encountering a delay loop such as FOR 1=1 to 
3000: NEXT 1, you may want to help it along by stopping with a 
Control/C entering |= 2999, and CONtinuing. 


Warning #1: There must be no PRINT statement with a # character 
in the output. TIR assumes that a # is the beginning of a trace 
sequence. Either remove the # or bracket the PRINT statement 
with a NOTRACE/TRACE pair. 


Warning #2: There must be no variable names in the test program 
identical to those in Version 1. The TR variable name must be 
unique in both versions. 


Warning # 3: Line O in the test program should be a REMark 
statement as described above to avoid confusion. Line O is listed 
when a line is successively repeated. 


Warning # 4: Once TRACE has been enabled, the test program 
must not dynamically reset the variables pointer ($CC.CD) with a 
CLR or POKE unless it first disables TRACE and resets $13.14; e.g., 
100 NOTRACE:CLR: POKE 19, O: POKE 20,0: TRACE is OK. 


Extensions 
The primary motivation for this program was to. improve the 
TRACE function in Integer BASIC. However, one can imagine other 
uses of a program that gains control as each statement is executed 
— maybe the kernel of a multiprogramming executive. | would be 
interested in seeing your comments and modifications. 


ZERO PAGE MEMORY MAP 


Location Use 
$00.01 SAVE AREA FOR HIMEM. APPEND USES 
$05 PROGRAM SWITCH ON=$FF OFF=$7F 


Turned on when trace # character 
($a3) is detected. Turned off 
when next space character ($A0) 
is detected 


$13.14 ADDRESS OF TR STORAGE VARIABLE 

$15.16 ADDRESS THAT CAUSES RETURN TO 
LINE 30020 IN BASIC LIST UTILITY 
(Version I) 

$17.18 SAVE AREA FOR $DC.DD. ADDRESS OF 
CURRENT BASIC LINE IN TEST 
PROGRAM 

$1B.1C SAVE AREA FOR $E0.E1. ADDRESS OF 


STATEMENT WITHIN BASIC LINE 
$A0 APPLE II TRACE FLAG ON=$FF 
OFF=$7F 


0300 


0300 
0302 
0304 
0307 
0309 
O30B 
030D 
O30F 
0311 
0313 
0316 
0317 


0318 
O31A 
031C 
O351E 
0320 
0322 
0324 
C326€ 
0328 
032A 
032C 
032D 
032F 
C33] 
0333 
0335 
0337 
0339 
C33B 
033D 
O33E 
0346 
0342 
C343 
0345 
C347 
0348 
O34A 
O34C 
034D 
O34F 
C351 
0352 
0354 


03 


TRACE INTERRUPT ROUTINE 


BY ALAN G. HILL 
23 NOVEMBER 1978 


COMMERCIAL RIGHTS RESERVED 


START 


PRINT 
TRACE 


RETURN 


SWON 


ORG 


BIT 
BMI 
JMP 
CMPIM 
BEG 
BIT 
BPL 
CMPIM 
BNE 
JMP 
NOP 
RTS 


LDAIM 
STA 


¢0300 


¢OCA0 
¢0307 
¢F OFC 
€A3 
SwON 
¢0005 
PRINT 
TAC 


RETURN 
TRCOFF 


tFF 

¢c005 
¢0013 
GLINO 
¢0C14 
GLINC 
¢OOCD 
¢0014 
¢OOCC 
¢0013 


¢CF 
¢COCC 
¢00CD 


| $0 


¢OOCD 
$00 
{D4 
$13 


{D2 
¢13 


¢00 
¢13 


¢00CC 
¢13 


¢COCD 
¢13 


04 
¢0013 


IS TRACE ON? 
BRANCH YES 

NO. BACK TC PRINT 
NUMBER SICN? 
BRANCH YES. 
SWITCH CN? 
NO. PRINT CHARACTER 
SPACE? 

NO. RETURN W/O PRINTING 
VER. II LDAIM $¢7F 

VER. II STA $05 

BACK TQ BASIC 


IT'S A TRACE LINE 


TURN ON SWITCH 
FIRST TIME THRU? 
BRANCH NO. TO GET LINE NO. 


YES. SETUP TR ARRAY 
IN VARIABLES 

AREA AND ADJUST 
POINTER 


NEW PV 


npn 


tRe 


DSP 


NVA 


POINT $13.14 TO TR 
DATA AREA-1 


FLOOP 


GLINO 
TLINE 


NLINE 
TLCOP 


CLOOP 


SLINE 
PLINE 


TSTACK 


PLOOP 


OTA 
LDA 
ADCIM 


STA 


LDYIM 
LDAIM 
STALY 


¢0013 
¢0014 
¢00 
¢0014 
TCA 
{FF 
¢13 


90 


INITIALIZE TR ARRAY 
TO ALL FF'S 


LOCP TIL DONE 
ALWAYS 


IS LAST LINE NO. 
SAME AS THIS ONE? 
BRANCH NO 


LOCP 

YES. PUT ZERC 
LINE NQ. IN 

STACK TEMPORARILY 
ALWAYS 


IS THERE ALREADY A 
ZERC AT THE TCP? 
BRANCH NC TC GET LINE NO. 


LOOP 
YES 


COMPARE WITH NEXT 
LAST LINE NO. 


IT'S DIFFERENT. SAVE IT 
IT'S SAME 


LOOP 


STILL THE SAME. RETURN TO TRACE 


PICK UP LINE NC. 
HOLD IN STACK TEMPORARILY 


BCTR DIGITS 

PUSH DOWN ALL TR 
ELEMENTS TO 

MAKE ROOM FCR 

NEW LINE NO. AT FR(C) 


FS 
Ol 


E8 


SAVE 


TEST 


TRCOF F 


LDAIM 
STA 
OTA 
LDA 
STA 


PLOOP 
{Ol 


¢13 


$13 


€O00DC 
¢0015 
¢O0DD 
¢0016 


tPF 

tO0A0 
¢0017 
¢OCDC 
¢0018 
¢00CDD 
¢O001B 
¢O0E 0 
¢O01C 
¢O0E 1 


¢E 88] 


¢7F 

¢0005 
¢0CA0 
¢00DC 
¢0017 
¢O0DD 
¢0018 
¢0015 
¢O0DC 
¢0016 
¢CODD 
¢C0E0 


¢001B 


¢00E] 
¢001C 


¢E 8A 
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LOCP UNTIL DONE 


PUT NEW LINE NO. OR 
ZERC IN TR(O) 


CET HIGH ORDER BYTE 
STUFF IT fee 
RETURN TQ BASIC 


ROUTINE TO SAVE ADDRESS 
s€ TIR WILL CAUSE BASIC 
TC EXECUTE LINE 30020 


WHEN TRACE SEQUENCE IS DETECTED 


RETURN TO UTILITY 

ROUTINE TC RE-ENTER TEST PGM 
TURN TRACE BACK ON 

RESTORE TEST PRCCRAM 

LINE NO. 

AND 

STATEMENT ADDRESS 

POP UTILITY ADDRESS 

FROM STACK 

RE-ENTER BASIC TRACE ROUTINE 
TURN OFF 

SWITCH AND 

TRACE: (DON'T TRACE UTILITY) 


SAVE ADDRESS OF 
TEST PGM LINE NC. 


SETUP TC TC TO UTILITY 
TQ LIST LINE NO. 
SETUP LINE ADDRESS 


SETUP STATEMENT ADDRESS 


REMOVE ADDRESS FRCM STACK 


GO TC UTILITY VIA CONTINUE 


29770 
29980 
29990 
30000 


30005 
30010 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
30100 
30110 


31000 
31010 
31020 


32000 


32010 
32015 
32020 


32030 


32040 
32050 
32060 
32070 
32080 
32090 
32100 


VERSION I; Real-Time Trace List Utility Program 


REM REAL-TIME TRACE LIST UTILITY PROGRAM 

REM SET-UP COUT AND INITIALIZE ZERO PAGE VALUES 
REM SET-UP TIR ASSEMBLER JUMP 

NOTRACE; POKE 54,768 MOD 256: POKE 55,768/256: 
POKE 19,0:POKE20,0=POKE 787,76: POKE 788,211: 
POKE 789,3: POKE 790,234 

REM SAVE ADDRESS SO TIR RETURNS TO LINE 30020 
CALL 945 :END 

EXECLINE=TR(0): IF EXECLINE #0 THEN 30050 

IF RRRRR=1 THEN 30070 

RRRRR=1: GOTO 30060 

RRRRR=0 

LIST EXECLINE 

IF PEEK (-16287)>127 THEN 30070: REM PAUSE IF SW(0) ON 
IF EXECLINE = 0 THEN 30100: REM SKIP DELAY 

FOR JJJJJ=1 TO 100: NEXT JJJJJ: REM DELAY 

CALL 954: REM BACK TO TEST PGM 

END: REM NEVER EXECUTED 


REM APPEND TEST PROGRAM 

INPUT "HIT RETURN TO APPEND" A$ 
POKE 0, PEEK(76): POKE 1, PEEK (77): POKE 76, PEEK (202): 
POKE 77, PEEK (203): CALL-3873: POKE 76, PEEK (0): 
POKE 77, PEEK (1) :END 


VERSION II: Post—-Execution Trace List Utility Program 


NOTRACE: POKE 54,768 MOD 256: POKE 55,768/256: POKE 19,0: 
POKE 20,0: POKE 787,169: POKE 788,127: 

POKE 789,133: POKE 790,5 

PRINT “TRACE SET UP. ENABLE TRACE IN TEST PROGRAM": END 
REM GOTO 32020 WHEN TEST PGM ENDED 

NOTRACE: POKE 54,240: POKE 55,253: 

IF PEEK (20)#0 THEN 32030: PRINT "TRACE 

WAS NOT ON IN TEST PROGRAM": GOTO 32090 

CALL-936: FOR I=100 TO 1 STEP-1: 

IF TR (I)s-1 THEN 32060 

LIST TR (I) 

IF PEEK (37)>18 THEN 32090 

NEXT I 

GOTO 32090 

CALL-936: IF I>1 THEN 32060 

PRINT:PRINT "C/T/E?" 

KEY=PEEK(-16384): IF KEY< 128 THEN 32100: 

POKE-16368,0: IF KEY=212 THEN 32000: 

IF KEY=195 THEN 32080:END 


6522 CHIP SETUP TIME 


John T. Kosinski 
4 Crestview Drive 
Millis, MA 02054 


MICRO 6:4 summarized some discussion from EDN concerning 
their difficulties with interface design. One point in particular 
caught our eye - a statement that the 6522 VIA chip cannot use the 
Apple-generated device select signal (from pin 41 of the t/O slot) 
because the data sheets clearly require that the chip be selected 
180 ns before the !/O enable signal goes high, whereas the 
Apple-generated signals occur nearly simultaneously. That is a 
misconception which we would like to correct. We report a 6522 
interface that uses the pin 41 select signal, that theoretically ought 
to work and in fact does work. 


The 6522 VIA - Why Bother? 


Since there are several interfaces both supplied by Apple and by 
other vendors, why bother? VIA stands for Versatile Interface 
Adapter. It was. designed by MOS Technologies, the same folks 
who brought us the 6502 and it is well named. It has two I/O ports, 
two timers and a shift register, and so many options in operating 
them that we won't try to list them. A very useful feature is that all 
of the furictions can interrupt the 6502. Several software tasks 
(cassette 1/O, music, software generated serial !/O) require the 
Apple to spend most of its time in timing loops. With the use of 
timers and interrupts, these functions can be performed while the 
system is running some other program. You can have your STAR 
WARS theme while shooting TIE fighters, instead of after; more 
prosaically, you can print edited text while editing more. The 6522 
is quite flexible because of its versatility; it is a definite asset to the 
Apple. 


What’s the Big Problem? 


The 6522 was designed to work well with the 6502. The signals at 
the Apple I/O slots are not all 6502 signals, however - some are 
decoded device select signals, which would be very convenient to 
use if we could. According to the referenced letter, we can’t - there 
is not enough time to select the chip. As mentioned before, the 
problem is not insurmountable; let’s discuss timing a bit. The 6522 
has 16 registers that control all the bells and whistles. To 
communicate with the 6522 from the CPU, one: 


. Selects one of the 16 registers with the address lines. 
. Selects (turns on) the 6522 chip itself. 

. Enables the !/O transaction. 

. Disables the I/O transaction. 

. De-selects the chip. 


I & Ww Nh az 


Some of the processes take time. For example, th 6522 data sheets 
DO say that the address must be valid 180 ns before the 1/O 
enable. They ALSO state that the select is normally derived from 
the address lines. However, the timing tolerance referred to is the 
register select operation of step 1, and it must occur 180 ns before 
the I/O enable of step 3. The data sheets DO NOT specify the chip 
select time of Step 2. A representative of MOS Technologies, 
looking at the circuit diagrams, estimated that it would be 
sufficient to have Step 2 occur 40 - 50 ns before Step 3. He did not 
offer a minimum lead time requirement. 
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Richard F. Suitor 
166 Tremont Street 
Newton, MA 02158 


The 6502 and the 6522 expect that Step 3 will occur when the 6502 
02 signal goes high and that Step 4 will occur when 02 goes low. 
The enable signal presented at the I/O port of the Apple is actually 
bo, a signal which leads 02 by 50 - 70 ns. That is a very short time, 
but long compared to the 10 ns or so it takes an LS gate to operate. 
There are three LS gates involved in a transfer (the chip itself, and 
data bus buffers at each end) giving a nominal 30 ns timing 
tolerance. Actually, if the devices on the data bus are properly 
tristated (i.e. they have very high impedance unless they are 
active), the capacitance of the bus and the buffer delays will 
probably permit proper operation with the 90 enable pulse. There 
certainly seem to be several circuits using that signal that work 
(now including, for some unknown reason, EDN’s.) 


In summary, there are perhaps two problems in interfacing a 6522 
to the Apple: 


1. One may indeed need to select the chip before enabling the 
1/O, but no more than 40 - 50 ns before. 

2. One may need to use an 1/O enable signal that is coincident 
(within about 30 ns) with the 6502 02. 


It is not at all clear what one could get away with if one tried; it is 
clear that if the requirements 1 and 2 are met, the 6522 should 
interface easily to the Apple II. However, since the device select 
and I/O select signals that Apple supplies de-select at the end of 
80, one should reasonably expect that an interface that tristates 
when these signals deselect should work satisfactorily with the 
Apple despite the fact that the 6502 is accepting data for another 
50 ns. It is apparent from the discussion that has resulted from 
EDN’s efforts that many interfaces so designed do work 
satisfactorily; it is not clear how marginal the operation is. 


There is an interesting discussion of the Apple timing in the Sept. 
issue of KILOBAUD starting on page 10. They reported on a 6522 
interface and found that the important time was the rise of the 1/O 
enable signal. Since they do not mention what was done for chip 
select and for data bus buffering, one can only wonder if chip 
select timing was affecting their results. 


We decided to play safe and satisfy both requirements. One way to 
satisfy the second is to use the real 02. As it turns out, this also 
satisfies the first, because 02 lags the device select signal by about 
50 ns. This coincidence may have led to some confusion in 
interpreting timing experiments! This is the approach we followed; 
in retrospect, knowing what we do now, we would have proceded 
otherwise (i.e. perhaps used a delayed device select signal as an 
1/O enable signal.) Since it does no good to have the I/O enabled 
if the chip and the data bus buffers aren’t, we lenghtened the 
device select signal by delaying it and ANDing it with itself. We 
had no problems with this approach. (It is not a ‘better’ solution 
than Mr. Scouten’s; he is quite right that one cannot use both the 
pin 41 signal and the QO directly with the 6522 for their intended 
functions. The difference, however, between 180 and 50 ns 
required setup time makes it feasible to use the pin 41 decoded 
device select signal if one chooses.) 


AN APPLE 1} PROGRAM EDIT AID 
Alan G. Hill 
12092 Deerhorn Dr. 
Cincinnati, OH 45240 


When editing an Apple Integer Basic program, you often want to 
locate all occurrences of a variable name, character string, or 
BASIC statements. This is usually the case when you are changing 
a variable name, moving a subroutine, etc., and you want to be 
sure you have located all references. The BASIC Edit program 
presented here should aid your editing. 


The BASIC program should be loaded into high memory and the 
program to be edited appended to it. The Edit program uses a 
machine language routine at hex 300 to 39F to search BASIC 
statements for the requested string and return the BASIC line 
number in memory locations 17 and 18. The routine is re-entered 
at 846 to find the line number of the next occurrence. This process 
is continued until no further occurrences can be found. The high 
order byte of the line number (location 18) is set to hex FF to 
indicate that the search is finished. 


BASIC Edit Program 

Note in line 32680 of the BASIC program that LIST LINE is an 
invalid BASIC statement. You will have to resort to a little 
chicanery to get the statement in. First code line 32680 as PRINT 
LINE. Then, enter the monitor and change the PRINT token ($62) 
to a LIST token ($74). This is easiest done if you code line 32680 
first and then search for the token in high memory ($3FFA when 
HIMEN is 16384). | 


After coding the BASIC program and the machine language 
routine, you will then need to append the program to be edited. 
Note that the program must have line numbers less than 32600. To 
append a program, you must first “hide” the Edit program. This is 
done by moving the HIMEN pointer (202) and (203) down below 
the Edit program. Then load the edited program and reset HIMEM: 
i.e.: 

LOAD (EDIT PROGRAM) 

POKE 76, PEEK (202) 

POKE 77, PEEK (203) 

LOAD (PROGRAM TO BE EDITED) 

POKE 76,0 HIMEM MOD 256 

POKE 77,64 HIMEM/256 


FIND ROUTINE 


A. G. HILL 
MARCH 1979 

HILO * $0003 
HIHI * $0004 
BSL * $0006 
BSH * $0007 
SEAL * $0008 
SEAH * $0009 
STRL * $000A 
LNL * $0011 
LNH * $0012 


You can then RUN 32600 the Edit program. Enter the character 
string or variable name to be searched when prompted by 
“FIND2”. To search for a hex string (e.g. all occurrences of 
COLOR=), enter an @ character followed by the desired hex 
character pair (@66 for the COLOR= example) 


EXAMPLES 
To find all occurrences of: Input 
SCORE SCORE 
XYZ XYZ 
RETURN — © @5B 
DIMA @4EC1 
All references to 1000 @ E803 


The Edit program will end if the screen is full ( } 18 lines). To 
continue the search for more occurrences, a RUN 32720 will return 
another page. Happy Editing! 


Find Routine 
Page Zero Memory Map 
$3-4 Address of search limit. Set to HIMEM by routine, but 
could be set lower to avoid searching Edit program. 


$6-7 Address of BASIC Token compared. Incremented until it 
exceeds Limit Address 


$8-9 Ending address - 1 of current statement being scanned 

$A-B Address of string being searched. Set up by Edit program 

$C Length - 1 of string being searched. Set up by Edit 
program 

$11-12 Line numbe; of statement containing the requested 


String. $12 is set to $FF if no more occurrences 


HIMEM LO BYTE 

HIMEM HI BYTE 

BASIC STATEMENT LO 

BASIC STATEMENT HI 
STATEMENT ENDING ADDRESS LO 
STATEMENT ENDING ADDRESS HI 
STRING LO | 

LINE NUMBER LO 

LINE NUMBER HI 


03 


05 
03 


START 


LENGTH 


TTOKEN 


NXTOKN 


LIMIT 


LDAIM 
STA 
RTS 


INCPNT 
LENGTH 


$F F 
LNH 
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SET UP ADDRESS OF FIRST 
BASIC STATEMENT IN 
LOCS 6 AND 7 


SET UP TO STOP SEARCH 

AT HIMEM. COULD BE 

CHANGED TO LIMIT SEARCH 

AT END OF PROGRAM BEING EDITED 
GET STATEMENT LENGTH 


MINUS 2 TO POINT TO 
LAST TOKEN IN STATEMENT 


SET UP STATEMENT ENDING 
ADDRESS IN 8 AND 9 
ADD IN CARRY IF ANY 


SAVE LINE NUMBER IN 
IN 11 AND 12 


ADJUST BSL TO POINT 
TO FIRST TOKEN 


COMPARE TOKEN TO 

FIRST CHARACTER IN 

STRING 

IF NOT EQUAL POINT TO NEXT 

IF EQUAL COMPARE REMAINING CHARS 
POINT TO NEXT TOKEN 

CARRY CLEAR THEN LOOK AT NEXT 

AT END OF STATEMENT. 

CHECK TO SEE IF AT END OF 

SEARCH LIMIT 


CARRY SET = LIMIT OF SEARCH 
SET UP BSL AND BSH TO POINT 
TO NEXT STATEMENT 


POINT TO LENGTH OF 
STATEMENT BYTE 

ALWAYS BRANCH 

SET UP LARGE LINE NUMBER 


TQ INDICATE AT END OF SEARCH 
RETURN TO BASIC 


0364 18 INCPNT CLC ROUTINE TO INCREMENT 

0365 75 06 ADCX BSL POINTERS. ENTER WITH 

0367 95 06 STAX BSL XREG = DISPLACEMENT 

0369 BS O7 LDAX BSH FROM 

036B 69 OO ADCIM $00 BSL, BSH 

036D 95 07 STAX BSH ACC = INCREMENT AMOUNT 
O36F 60 RTS 

0370 AS 06 INCTOK LDA BSL ROUTINE TO INCREMENT 

0372 C5 08 CMP SEAL THE TOKEN ADDRESS BY 1 . 
0374 A5 07 LDA BSH SET CARRY IF AT END 

0376 ES 09 SBC SEAH OF STATEMENT 

0378 £6 06 INC BSL 

037A DO 02 BNE  REXIT 

O37C £6 07 INC BSH 

O37E 60 REXIT RTS 

O37F A4 OC COMPAR LDY $000C ROUTINE TO COMPARE 

0381 Bl OA COMPY LDAIY STRL REMAINING CHARACTERS 

0383 Dl 06 CMPIY BSL (C) LENGTH OF CHARACTER 
0385 FO 03 BEQ COMPX STRING -1 

0387 AO OO LDYIM $00 RESET YREG 

0389 60 RTS 

038A 88 COMPX DEY 

038B 10 F4 BPL COMPY FOUND A MATCH! POP STACK ADDRESS 
038D 68 PLA AND RETURN TO BASIC. LINE NUMBER 
O38E 68 PLA IS ALREADY IN LNL AND LNH. 
O38F 60 RTS 


BASIC EDIT PROGRAM 


DIM A$(30) 

INPUT "FIND?",A$: CALL -936: 
IF A$(1,1)="@' THEN 32630: 
KK=LEN(A$): FOR I=] TO KK: 
POKE 911+1I,ASC(A$(1I,I)): NEXT I 
POKE 12,KK-1: GOTO 32650 
A$=A$(2,LEN(A$)): KK=LEN(A$): 
FOR I=1 TO KK STEP 2: 
J2ASC(A$(1I,1))-176: 
JI=ASC(A$(14+1,1+1))-176 

IF 3>9 THEN J=J-7: 

IF JJ>9 THEN JJ=JJ-7: 

POKE 912+1I/2,3*164+33: NEXT I: 
POKE 12,KK/2-1 


32600 
32610 


32620 
32630 


32640 


32650 
32660 
326/0 


32680 
32690 
32700 
32710 
32720 
32730 


POKE 10,912M0D256: POKE 11,912/256 
CALL 768 

IF PEEK(18)>127 THEN 32730: 
LINE=PEEK(17)+PEEK(18)*256 

LIST LINE 

IF PEEK(37)>18 THEN 32730 

CALL 846 

GOTO 32670 

CALL -936: GOTO 32700 

END 


A CASSETTE OPERATING SYSTEM FOR THE APPLE li 
Robert A. Stein, jr. 
2441 Rolling View Dr. 
Dayton, OH 45431 


Have you ever wished that as great as the Apple If computer 
system is that you were able load programs by name from a library 
cassette? Well, with this mini-sized cassette operating system you 
can stack many programs on one cassette and load the one you 
want by typing in its name. Great for showing off your system 
without juggling a dozen or so cassette tapes. 


The Cassette Operating System [CASSOS] resides in memory at 
locations 02CO to O3FF, where it won’t get clobbered by BASIC 
programs or initalization. Add the optional cassette control 
circuit, or purchase one of the commercially available ones. 
(Candex Pacific, 693 Veterans BLVD, Redwood City, CA 94063) 


and you never need envy the PET for its loading technique again. . 


Operation 


Load the ‘CASSOS’ tape, which you have created from the 
assembly listing, just like any other machine language program 
(2CO.3FFR), then initalize the BASIC pointers by depressing 
CTRL-B, return. To load a program depress CTRL-Y and RETURN. 
“PROC?” will be displayed, enter a 1-10 character program name. 
The cassette tape will be searched and the program loaded if 
found. “XXXXXXXXXX LOADED” will be output, where 
XXXXXXXXXX is the program now in memory. If the cassette 
control circuit (described later) is present the tape will also be 
stopped. A line of question marks (2722222222) are displayed if the 
requested program was not found. To write a program to the 
library cassette enter Yc (Ctri-Y, “WRITE”, and RETURN. Program 
will be saved under the name requested at PROG? . “XXXXXXXXXX 
OUT’ will be displayed at completion and the recorder stopped. 
To end a cassette program file enter: Yc, “EOF”, RETURN; a special 
record header will be written. Note that to conserve limited 
memory space the EOF routine utilizes the program write 
subroutine so the “XXXXXXXXXX OUT” message should be ignored. 


The program is structured such that the last 63 locations of the 
input buffer is used for display messages, so if more than 191 
characters are entered at one time the program will still function, 
but without messages. The listing as presented was for a 16K 
system, change location 0358 as follows for a_ different 
configuration: 


1F — 8K 5F — 24K 
2F — 12K 7F — 32K 
3F — 16K 8F — 36K 
4F — 20K BF — 48K 
Program Design 


The method by which CASSOS functions is to write a program 
header block consisting of header ID, program name, and start of 
the BASIC load. This is followed by the program data itself, 
utilizing the Apple monitor routines. 


‘A Cassette On/Off Circuit 
The following diagram describes a simple circuit for stopping and 
starting a cassette recorder which has a “remote” plug from the 
Apple I! under program control. The theory involves activating or 


deactivating the AN3 signal on the Apple game connector. A store 


_ to location CO5F turns the recorder on and location COSE turns it 
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off. The strobe triggers a transistor which in turn opens a relay and 
closes the connection to the remote plug, starting the recorder. If 
your recorder requires an open connection to start tape movement 
wire the relay normally closed instead of open. It is also possible to 
add a relay that would interupt power to the recorder for control if 
you have no remote capability on your recorder. 


to recorder 
pin plug 


N.O. 
#5V (pin 1) 


6VDC RELAY 


NPN 





$#3.5V (pin 12) 


Chasis Ground (pin 8) 


Cassette Control Circuit 


Parts List 
All parts were purchased at a local Radio Shack 
6VDC Relay (275-004) 
NPN Transistor (2N3568 or equivalent) 
1000 Ohm Resistor 
2500 Ohm Resistor 
Mini-Plug 


All connections were made to a DIP Header which was modified 
by soldering a 16-pin IC to it so that the game paddles could still be 
used without modification when the cassette ON/Off circuit was 
in use. The common 6VDC relay was modified to be triggered by 
the game connector signals by wiring a 2500 ohm resistance 
(utilizing a series of resistors connected in series so that the sum is 
2500 Ohms) in parallel with the relay coil. If your recorders rewind 
controls are disabled by the remote jack wire a switch to bypass 
the. transistor between chasis ground and the relay, which will 
allow the rewind to operate when depressed. If all this is beyond 
your scope use the purchased control or simply stop and start the 
recorder manually. 
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A Cassette Tape Catalog 


Shown in exhibit is a short integer BASIC program which when 
loaded will list all the programs on a CASSOS format library tape. 
The CASSOS sub-routines are used so the software must be core 
resident. Just load the program, insert the library cassette into the 
cassette handler, and type RUN after starting the cassette player. 


fied: CALL -isne: TRE tlei: DIA eer1) 

THPLUT "'TRSERT LIERRRY THREE A PREPRESS 'RETURTER "ses 
PORK E “ibe Ssh! CALL -—ote: COSUR =A 

FRINT “FILE € FROGRAR NAPE EVTES" 

PRD “Semen mmm mmm ren" 

CALL S46: CALL -—2eSo 

IF FEEK (t@&hl= BSc" E "1 THEM fieé 
IF FREER leGei# ASG Se" THER cee 
FEM LOAD INTO Mon ES TST MEMORY i 
FOEE 6s FEERK treei: FORE &1st FE. 
PREE Bes che: PORE bss i ois CALL —r 
PRINT Hes FORE Fi osct FORE ries ir 
AcL= FEEE trebid PEER iF HEE 
L=lesee—Lit=ti+d 
FRI? © heb: GOTO e& 
LOSE Skee FRIAT "HO EG 
FORE -ieecthsab: GOSLE Ge 
PEIMT “Se HT OF FILE See" 

& CALL -1SS 
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S-C ASSEMBLER I 
Super Apple Il Assembler 


Chuck Carpenter 
2228 Montclair PI. 
Carrollton, TX 75006 


I’ve had the good fortune to get an advance copy of an excellent 
assembler for the Apple Il. The assembler was written by Bob 
Sander-Cederlof and has many desireable features. Bob has used 
sweet 16 and several routines from the monitor and integar BASIC 
(it doesn’t run with the Applesoft ROM on). The result is a 
compact co-resident two-pass assembler. A summary of assembler 
commands and data is listed in Table 1. 


Here are a few of the assembler features: 


* Format compatible with Apple mini-assembler 

« Complete text editing using standard Apple 
screen and line editing features. 

e Save and Load as in integar BASIC 

e Psuedo op codes 

¢ Text for REMs following the line no. 

e Tabs to the opcode, operand and comment field using 
(CTRL) | 

« Symbol table 

° Listing, fast or slow 

° Stop and start a LIST or ASM at any time 

« Access Apple monitor from the assembler using $ 

¢ Run programs from the assembler 


The S-C ASSEMBLER II includes many other features. Among these 
are: 


* Line renumbering starting at 1000 by 10’s 

¢ Printer driver routine - his or yours (or | 
mine for that matter). 

e Pagination of printed output 

¢ Program location and relocation 

¢Can be used to renumber BASIC programs 
(except branches) 

¢ Operates within DOS (see Table 2) 

* Runs on an 8K machine 


| have included a couple of examples of the S-C ASSEMBLER II 
features in Figure 1 and 2. Figure 1 is a functional routine. Figure 2 
is merely for illustration of the .DA feature. Most of the assembler 
capability is illustrated in Figure 1. This routine, which compares 2 
byte data, can be used for many applications such as extended 
loop counters. The example also includes ASCII strings using the 
pseudo op code .AS. 


A jump to the user exit at $3F8 was used to enter the data. This also 
takes advantage of the (CTRL) Y feature of the Apple monitor. 


By calling the print routine with PRT, a hard copy of a listing or of 
assembled output is obtained. The printer driver routine is output 
from the game paddle connector. This is a TTL level serial signal. 
Typing SLO(W) or FAS(T) stops the printer output. Also, SLO(W) 
will provide a slow listing of your program. You can stop and start 
the listing with the space bar and, escape back to the assembler 
with a (RETURN). FAS(T): cancels SLO(W) returning to normal 
screen speed. (See Slow List, MICRO #5 page 21.) 
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For text editing, you can insert a line between other lines and list 
any single line or combination of lines. This allows character 
editing or line editing using Apple ESCAPE functions 
((ESCAPE)D,C,B). Also you can DEL(ETE) any line or combination ; 
of lines. 


An asterisk (*) in the first column of the label field allows that line 
to be a comment or blank line. Very useful for commenting a 
program. | used short comments in my programs; | only have 48 
columns. Actually the comment can be any length (up to 100. 
characters or so). An asterisk used in the operand field means 
current location. You can add or subtract labels, hex and decimal 
values from the current location. Each of these can be added or 
subtracted, to or from, each other. Here are some examples: 


1000 LABL LDA *-* CURRENT-CURRENT 

1010 LAB2 LDA LABL-LABL 

1020 LAB3 LDA *-LABL 

1030 LAB4 LDA LABLt1234 

1040 LABS LDA $1234-LABL 

1050 LAB6 LDA $ABCD-5678 

1060 * 

1070 * EXAMPLES OF ADDITION & SUBTRACTION OF 
1080 * CURRENT VALUE, LABELS, DECIMAL AND 
1090 * HEX VALUES FROM EACH OTHER. 

1100 * 


INustration of the .DA feature is shown in Figure 2. The intent here 
is to show data in a single or 2 byte location. Once the data value 
has been assigned with the .DA code, it can be manipulated with 
another feature. This feature is shown as a / (slant line) and # 
(pound) in the first column of the operand field. Here’s what's 
happening: 


LDA /LABL 
LDA #LABL 


HIBYTE = 2.256 
LOBYTE = MOD256 


As you can see from this and the previous examples, these features 
provide a very powerful assembler capability. 


Before | obtained this assembler | could never get very enthusias- 
tic about extensive machine or assembly language programming. 
Now, with this assembler, this coding is as easy as BASIC. You can 
get a copy for your Apple I! from: 


S-C SOFTWARE 

P.O. Box 5537 
Richardson, TX 75080 
Price - $25.00 


1 think you will enjoy it: having the efficiency of machine 
language programs developed with the ease of BASIC. The 
combination of compact programs with interactive capability 
makes personal computing even more enjoyable. 


Load: *1000.1CFFR Commands: 
Run: *1000G Hard Entry LOAD load program from tape 
or: *1003G Soft Entry SAVE save program to tape 
LIST list entire program 
LIST line# list selected line 
LIST line#,line# list range of lines 
Pseudo ops: DELETE line# delete selected line 
label .OR expr origin (optional label) DELETE line#,line# delete range of lines 
label .EQ expr equate RENUMBER renumbers all lines 
label .DA expr data (optional label) NEW erase program 
label .HS xxxx...x hex string SLOW program slow list 
label .AS daaaa...ad ascii string (d is any delimiter) FAST program fast list 
.EN end PRT printer driver $1B77-1BFF 
ASM assemble program 
RUN expr execute starting at expr 
APPEND add program from tape to one in memory 
Table 1 


S-C Assembler {1 Summary Notes 


Instruction Steps: 


. Bring up DOS per instruction manual 
. Reset to monitor (*) 

. Load assembler from tape 

. Return to DOS using $3D0G 


. BSAVE Assembler 
. LOCK Assembler 
. Call 4096 
. $3D0G 


OnN Do bh WHD = 


Jumps to Assembler 
Jumps to DOS soft entry but... 


At this point the DOS is clobbered. Any further use of DOS 
requires a reboot. It is very handy though to have the speed of 
loading the assembler from the disc. 


Table 2 


S-C Assembler II with Apple If DOS 


sAST lbh + . DA PSEUDO OF EXAMPLE 
lmlp + 
lhc OF Fsbo 
Hoh 34 1c 1os6 HEX .DA $154 
Moke 34 Le lide DEC DA 4666 
lesa + 
lbéa + ADDRESS OF DATA 
le + 
Bsh4— AD Be 1HSe LDA #HES. HES LO BYTE 
she AD WS 1a 33 LDA “HES HE HI ETE 
like + 
1116 + DATA AT THE ADDRESS 
lich + | 
WaeHs- AD Be Ws 11s LIAR TEC TEC LO BYTE 
HSHB- AL Hs es = Lide LDA DEC+1 TEC HI BYTE 
1134 »EM 
S'TMBOL TABLE 
HES GSE TEC aC Ss 
Figure 2 
4 DA Pseudo Op Example 
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SHEL 
=-C ASSEMBLER JL 


BSE Se ck 
BS—- ce od 


ase SS 28 
Baas 20 26 
ASC = 


BSaN- AS SC 
eoer- CS SE 
as11- AS 3 


Ets 1 3- 
BS1S— 
Bolr— 


Tas ee 
Co mm Ty te 


MT om Pi 
toh Ey 0 eT 


fs = bl 
Oe moe als 


Gara 4C 


SYMBOL TABLE 


COUT 


ie 


aL iH S ic 
“TH Ha 
PRT1  @S22 


Lien 


te 
mt i 


—, 
4 

soade 

ac 


ice 
12iu 
lech 
1234 
le4h 
1254 
Fatt 5) 
cre 
les 
Leo 
L28e 
1218 
lsech 
13h 
1344 
13SH 
1360 
13h 
13h 
1338 
1466 
14146 
42h 
1436 


4 LESS 


Be 
He s0 


eed 9 
sce 


‘Sot ASSEMBLER II 


IS GREATER (OF EG 


UF $36 


Gk DEFAULT Is # 
of: 

COUT .EC! $F DED 
AS TR OY 


2HS 


MW WAS FA FS OY 


AHS & 


#LESS-LESS 
» PRAT 

TST1 , #GRER-LESS 
PRAT 
#FSH 
» COUT 


LESSs 
PRT1 
» COUT 


FET 1 H 


PRT 


DATA ENTRY THROUG 
(USER EXIT @ $3F 3s. 


i 


DARTH. DATA (CTRL 


2ORk $F 
JMP STAR 
a Et 


ma et 
et WR as 
m— £01 

Fry it 


= 


Figure 1 


S-C Assembler I! Example 
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EXAMPLE 


COMPARES HEe VALUES 
© AND INDICATES WHICH 


WAL. 


A 


CRMAL OUT 


+ 


fESAMPLE RUM 


1H. CHE 


THE INTEGER BASIC TOKEN SYSTEM 
IN THE APPLE I 


Frank D. Kirschner 
2643 Rockledge Trail 
Dayton, OH 45430 


There are two primary methods of storing BASIC programs in 
microcomputers. One involves storing the entire program, letter 
by letter and symbol by symbol somewhere in memory, and 
interpreting the ASCII codes on execution. This is typical of BASIC 
compilers and some interpreters, like the TRS-80 Level 1. A more 
memory-efficient system uses tokens, eight bit bytes each of which 
represent a BASIC word or symbol. The TRS-80 Level II uses this 
method, as does the Apple II, to which the examples which follow 
apply. 

When in Integer BASIC, the Apple stores characters as they are 
entered in a character buffer (hex locations 0200 to O2FF). When 
“return” is entered, BASIC “parses” the entry (that is, interprets the 
ASCII characters and breaks the instruction into executable parts). 
It determines what is a command, what are variables, data and so 
forth. If it is legal and is preceded by a number between 0 and 
32767 (a line number), it stores it in memory in a fashion discussed 
below. If there is no line number, it simply executes the command 
and awaits further instructions. 

The way the programs are stored is quite clever. When BASIC is 
initiated (control B or E000 G from the monitor) several thiigs 
happen. First, the highest available user memory (RAM) is stored 
in memory locations 0O4C (Lo byte) and 004D (Hi byte), called the 
HIMEM pointer. Also, locations OOCA and OOCB, the 
start-of-program pointer, get the same numbers, since there is no 
program as yet. As program steps are entered, they are stored 
starting at the top of memory, highest line numbers first, and the 
start-of-program pointer is decreased accordingly. See Figure 1. 
When a line with a higher number than some already in memory is 
entered, they are shuffled to preserve the order. One application: 
if you enter a program and then hit control B, the program is not 
scratched (or erased); only the start-of-program pointer is affected. 
Since powering up the Apple fills the memory with a pattern of 
ones and zeros (it looks like FF FF 00 00 ...) from the monitor, it is 
easy to find the start of the program and then manually reset CA 
and CB to that location. 

This is the way program instructions are stored in memory: (All 
numbers are in hex) 


-— + ange 01 

‘End of line 
indicator 
always 01 


08 64 00 





Tokens for BASIC statements 


Line number (Lo byte, HI byte) 
This is line 100 (Decimal). 


Number of bytes in BASIC line (also, one less than the number of 
bytes from the beginning of the next line. 
Figure 2 


As an example, power up the Apple, bring up BASIC, and enter 
100 PRINT 0,50 

Enter the monitor (by pushing “reset’), and then examine the 

program by entering 


EXAMPLES FOR 


16K Apple 
4000 HIMEM 
———— (Location stored in 4C and 4D) 
bY 
—_Eeeeee P 
, rogram 
eset 
eee 
3FA6  oeemeeeneme wg §=First line in program 


(Location stored in CA and CB 


Figure 1 


Memory Map for Program Storage 


3FF4.3FFF return 
(Locations for a 16K Apple. Subtract 2000 hex for a 4K or add 4000 
hex for a 32K Apple.) You will see this: 


3FF4 - OC 64 00 62 
3FF8 - BO 00 00 49 B5 320001 


which means: 


OC There are 12 bytes in this line 
64 00 It is line 100 (Decimal) 
62 PRINT (see Table 1 for complete list of tokens 
BO The next two bytes are a number (rather than tokens) 
00 00 The number 0 
49 The comma in a PRINT statement 
B5 Another number follows 
32 00 The number 50 
01 End of BASIC line 
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To demonstrate the use of this information, return to BASIC and 
try to enter the following BASIC line: 

100 DEL 0,50 
You will get a syntax error, because the Apple Interpreter does not 
allow the command DEL in deferred execution mode. Now do this: 
reenter the monitor and change the 62 (PRINT) to 09 (DEL) and the 
49 (,for PRINT) to 0A (, for DEL) by entering 

3FF7: 09 Return 

3FFB: OA Return 
Reenter BASIC (control C) and list. Try this instruction by adding 
lines between 0 and 50, running the program, and then listing it. 
This allows you to write a program which will carry out some 
functions only the first time it is run and then automatically delete 
those lines. 
In addition to inserting instructions which cannot be entered as 
deferred commands, you can modify the program under program 
control. As an example, here is a program which will stop and start 
listing a long program by hitting a key on the keyboard. 
Bring up BASIC. 
Enter: 257 LIST 0: RETURN 
HIT RESET, 3FF6.3FFF RETURN 
You will see 
3FF6 - OA 01 
3FF8 - 01 74 BO 00 00 03 5B 01 
What this means: | 
3FF6: OA Ten bytes in line 
3FF7,8: 01 01 LINE 257 
3FF9: 74 TOKEN FOR LIST 
3FFA: BO Means “Number follows” 
3FFB,;C: 00 00 LINE TO BE “LISTED” (LO, HI) 
3FFD: 03 TOKEN FOR COLON 
3FFF: 01 End of BASIC LINE 
Now enter 3FF7: FF FF Return 
Cont. C, List 
You have 65535 LIST O: RETURN 
Now enter _ . 
100 X=PEEK (-16384): POKE -16368, 0:1F 
X 127 THEN 0: GOTO 100 
Reset, 3FCF.3FFF Return 
Change line no. from 100 to 65534 by entering 3FDO; FE FF Return 
Change GOTO 100 to GOTO 65534 by entering 3FF3: FE FF 
Change the 0 in “THEN 0” to 65533 by entering 3FEE: FD FF 
In like manner, enter these remaining steps: (Under each number 
which has to be entered through the monitor, the Hex equivalent, 
in reverse order as it must be entered, appears) 


65533 | = | PEEK (I): IFI> PEEK (76}+ 
(FD FF) 
256*PEEK (77) THEN END: GOTO 
65531 
(FB FF) 
65532 X=PEEK (-16384):POKE -16386,0: 
(FC FF) 
IF X 127 THEN 65534 
(FE FF) 
65531 POKE 16374, PEEK (1 t1): POKE 16380 
(FB BB) 


PEEK (I*2): GOSUB 65535 
(FF FF) 


° 32767 |=PEEK (202) 256* PEEK (203) 

The steps must be entered in reverse order (i.e descending line 
numbers) because the interpreter orders them by their number 
when entered, and will not re-order lines when the numbers have 
been changed through the monitor. 


The reason for making all these line numbers very high is so the 
applications program will fit “under” the list program. 
Now, in the monitor, move the start of program and HIMEM 
pointers below the program: 

3A: 49 3F Return 

4C: 49 3F Return 
Hit control C and list. Nothing is listed. The program has been 
stored in a portion of memory temporarily inaccessible to BASIC. 
Load your applications program, make sure all the line numbers 
are less that 32767, and change HIMEM through the monitor (4C: 
00 40) and execute RUN 32767. The program will list until you hit 
a key and then resume when you hit a key again. It uses the fact 
that each line begins with the number of bytes in the line followed 
by the line number. Numbers of successive lines are found and 
“POKE into the appropriate location in line 75535, which then lists 
each line. 
Using these methods you can exercise considerably more control 
over the BASIC interpreter in your microcomputer. 





IMPROVED STAR BATTLE SOUND EFFECTS 


William M. Shryock, Jr. 
P.0. Box 126 
Williston, ND 58801 


10 POKE 0,160: POKE 1,1: POKE 
2,162: POKE 3,0: POKE 4,138 
: POKE 5,24: POKE 6,233: POKE 
7,1: POKE 8,208: POKE 9,252 
: POKE 10,141. 

20 POKE 11,48: POKE 12,192: POKE 
13,232: POKE 14,224: POKE 15 
»150: POKE 16,208: POKE 17, 
242: POKE 18,136: POKE 19,208 
: POKE 20,237: POKE 21,96 

30 CALL -936: VTAB 12: TAB 9: PRINT 

| "STAR BATTLE SOUND EFFECTS" 


40 SHOTS= RND (15)+1 
50 LENGTH= RND (11)*10+120 
60 POKE 1,SHOTS: POKE 15, LENGTH: 


CALL 0 

70 FOR DELAY=1 TO RND (1000): NEXT 
DELAY 

80 GOTO 40 


This version can be used in low 
res, programs without having to 
reset HIMEM. Also it can be load- 
ed from BASIC. 
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TABLE | 


APPLE f! INTEGER BASIC TOKENS 


BASIC COMMAND OR FUNCTION ‘HEX TOKEN BASIC COMMAND (CONT) HEX TOKEN 
ABS 31 LOAD 04 
( 3F MAN OF 
) 72 NEW OB 
‘ASC ( 3C ~~ Includes left paren. NEXT 59 
) 72 , 5A 
“ 28 _—s first quote NO DSP 79 
“ 29 ~=second quote NO TRACE 7A 
AUTO 0D PDL 32 
, ‘OA ( 3F 
CALL 4D ) 72 
CLR 0C PEEK 2E 
COLOR = 66 Includes = 3F ( 
CON 60 » 72 ) 
DEL 09 PLOT 67 
, 0A , 68 
DIM 4F = Numeric Arrays POKE 64 
( 34 65 
) 72 POP 77 
DIM 4E String Array ‘PRINT 63 If used alone 
( 22 PRINT 62 Numeric Variable 
) 72 : 46 
$ 40 ; 49 
DSP 7C° Numeric Variable PRINT 61 String Variable 
DSP 7B String Variable “ 28 First 
END 51 . ” 29 Second 
FOR 55 PR # 7E Includes # 
= 56 REM “5D 
TO 57 RETURN 5B 
STEP 58 RND 2F 
GOSUB 5C ( 3F 
GOTO 5F ) 72 
GR 4C - 36 
HIMEN: 10 Includes : SAVE 05 
HLIN 69 SCRN ( 3D Includes ( 
, 6A , 3E 
AT . 6B ) 72 
IF 60 SGN 30 
THEN 24 When followed by a ( 3F 
_ line no. ) 72 
THEN 25 When followed by TAB 50 
GOSUB or a basic TEXT 4B 
operation 
INPUT 54 Numberic Variable me vc 
INPUT 52 String Variable 6D 
INPUT 53 Input if followed by ... AT 6E 
7 VTAB 6F 
“ 28 first 
” 03 
29 Second = 71 In assignment 
IN # 7F Includes # 
AND 1D 
LEN ( 3B Includes ( 
LET 5E OR tte 
74 MOD 1F 
LIST NOR DE 
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RENUMBER APPLESOFT 


Chuck Carpenter 
2228 Montclair Place 
Carrollton, TX 75006 


Renumbering Applesoft programs suddenly became possible. The 
resequence program in Jim Butterfield’s “Inside Pet BASIC,” 
(MICRO 8:39) solved the problem. 


After clearing up a minor problem in the program (with help from 
Jim) | tried it on a 200 line program. Because of the way | started 
numbering in the first place, | had to fix-up about a dozen lines. 
But, | never would have gotten through that much renumbering 
otherwise. 


As Jim mentioned in his letter to me, a machine language program 
would have ran a whole bunch faster. With DOS and having to find 
a place to locate such a program, the BASIC approach may be 
easier. 


Here are some comments on the Applesoft version shown in 
Listing 1: ; 

-Line 60005 has some prompting inputs to set-up the program. 

-Use RUN 60005 to start renumbering. 

-Line 60060 brances to a DELete line. 

-Line 60160 is changed to a point to the line no. in Applesoft 
(2049 or $801). 
Note: These are the pointers for Applesoft ROM 

-Line 60160 was also changed to allow starting at any line 
number (M=LN-IN). 

-Line 60170 changed to allow any numbering increment (M=M 
TIN). 


-Line 60220 - tokens changed for Applesoft (this information is in 
the Applesoft If manual). 

-Line 60260 and 60270 added to delete the renumber program 
and end it. 
To make using the program easier, an append program (also for 
ROM) does the job. The assembly language program shown in 
listing 2 links the two programs together. You only need to do this 
if you want to renumber an existing program. (You can still load 
the renumber program before you start a new program.) Here’s 
how you use it. 

-Load the append program first. It fits in page 3 starting at $3A5. 

-Load the lower line no. Applesoft program. | 

-Type Call 933 and (return). | 

-Load the higher line no. renumber program. 

-Type CALL 955 and (return). 

-Use RUN 60005 to start renumbering. 


Be sure to record any output that appears on the screen. Write 
down the information and check the renumbering on the lines 
indicated. Putting longer line numbers in short spaces will be one 
message. Another will ask you to check where you used a THEN for 
a GOTO. The renumber program is not sure if it should renumber a 
line or a parameter. 


My thanks to Jim Butterfield for providing us with such a useful 
program (and helping me get this one running). Also, thanks to 
Bob Matzinger from the Dallas Area Apple Corps for some 


a modification suggestions and the Applesoft ROM append routine. 
2 so cue 86 
oa A] 
Firs te | salt tS a a ; Ten 7 
bist Pha ay LUA ze 
mah — a =TA $e 
Sno Aa AS mie 2 at 
RAE mo EP 215 Fey 
Sati a EL 
SRE AS o LIA se) 
rt Ee Fs aS SE: i ses 
io Bel me mee STH Foy 
oo el LIK cae 
wat oS Pest fe mE Hee 
omer Be ie ae Pay satel Fs Panne mere Paar eat 
REET EE STA 86 $65 
Sed so er eT 
Set wl woes rim ge mn FE, 
fInD- Gn 6F STA | FEF 
rs FE 3m 20 Fae": = 
Tai ier Ss lia fio I; iii Eli : 
etilic- Pi mi = TA Fes 
Ei EE Fe D4 Jor $D4F2 
Sh a eit so 
at) es rr ara 
Le PE eras 

Listing 2 


Applesoft append program. This program can be used to append 
any two programs together. 
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Aaa END 
ESI HOME S PRINT & PRIHT “RENUMBERS": PRINT = I 
hPUT “FIRST LINE # - “sls PRINT © INPUT "THCREMEN 


"SIN 


T- 

eeeig LET T =: DIN Vallee st lee: GOSUE 
: FOR F&F = 1 TO les: GOS SUB BOLE 

eeece IF G THEN GOSUB ebeoe: NEXT F 

BEES GLOSUE ebie@: FuR FF = 1 Ta 1LESIN = 
ome): FORE A - isll - NH + 256 

Bede PORE Ashi! = Li GOSUE Beery e she 


/ e676: IF G THEN EXT R 
SGE5R GCOSUB 6G16ea: FOR F 


1 
IF G THEN GoOSub eel Ie: NES ai 
E 


- =. 


F 

ceG6G PRINT "#ENIMe": GOTO secee 

eoara LET J=G: IF Ts > @ THEN FOR 
© IF Vet) <¢ > W THEN NEXT Jt = 6 
cease RETURN 


4 IF Vo< 3: ®& THEN GOSUE ¢€ 
JT + TeerTi = 


aL ty 
Wann 
Oe | 


TO LES: GOSuE 


SALE 


THT th - 


= fis GOS 


i Tu T 


caiaa RETURN 

e11G GUSUE 6eg7@2 IF J = G THEN RETURN 

S126 Wo= WHC: IF = @ THEN PRINT "GO"S"LSLS" 

7: RETURH 

ise FOR D =A TO EB +1 STEP - is = INT th + 

iaisy = Wo - 1g # & + 48: IF W = @ THEN ¥ = 32 

eaidg POKE DsYih = §! NEXT Ds IF Wo = @ THEN RETU 

FN | 

EM1SG PRINT "INSERT'SHRCJI3"L"SL RETURM 

eeiee LET F = 2e49:M = LN - IN 

eniv@ LET A= Fin = M+ IN | 

eaiga LET F = PEEK (Al + PEEK (A + 1] * 256:L = 
PEEK (A + 2) + PEEK (A + 3) * 256: = A + 2G = 
L < 6&4 

aise RETURN 

ewe LET S = @ 

ee1g LET = GA = A+ 12B = ARC = PEEK (Alt IF 
C= 8 THEN GOSUB 6@170: ON G+ 2 GOTO éezia,6019 

i 

aeea IF C < > If71 AND < > 176 AND C 196 
AM sc <)> 6S GOTO Seeen 

e230 LET A =A + 130 = PEEK (A) - 482 IF C= - 


6e4a IFC > = 8 AND C 
GOTO 6bcse 
eco LET So = 445 A =A- 1: FETURH 
a - 
eb" END 
Listing 1 


APPLE If Applesoft Version of Jim Butterfield’s Resequence 
program. 
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AN APPLE II PROGRAM RELOCATOR 


Rick Auricchio 
59 Plymouth Avenue 
Maplewood, NJ 07040 


After writing an Assembly-language program, the 
occasion often arises when one wishes the pro- 
gram to run in a different area of memory than 
that for which it was originally assembled. Re- 
locating a program requires changing all abso- 
lute references within the program, so that it 
will run elsewhere in memory...this process is 


tedious, time-consuming, and repetitive WORK. 
ENTER THE ELECTRONIC BRAIN 
Behold! We have before us an electronic marval 


which thrives on such repetitive work! After 
all, why not just write a program to relocate 
others? Read on...... 


HERE'S WHAT IT TAKES 


When a Relocating Assembler creates object code 
one of the items built is a Relocation Diction- 
ary. 
the program instructions that have absolute ad- 
dresses; it also contains some flags for use by 
a relocating loader so that the latter can ad- 
just the address references during the loading 
process. 


Unfortunately, we don't have such a luxury when 
relocating most programs...all we have is raw 
machine language to work with. Our relocator 
will have to scan the subject program and find 
all absolute references which need adjustment. 


FUNCTIONAL DESCRIPTION of RELOC8 


The RELOC8 program will use the Apple's SWEET-16 
utility for all 16-bit data and address manipu- 
lation; use of SWEET-16 saves a lot of 6502 code 
at the expense of some speed loss. In order to 
decipher the 6502 instructions of the subject 
program, Apple's Disassembler is used. (The 
disassembler, by the way, turns out to be a 
rather nice utility for things like this). In 
order to minimize user intervention, it was de- 
cided that RELOC8 would be run as part ofa 
standard Apple Memory-Move command. After load- 
ing the subject program in its “old” memory lo- 
cation, one enters an Apple Move command to copy 
it to the "new" memory location, followed by 
Control-Y (which starts RELOC8 after the Move 
completes). 


All absolute address references which lie within 
the range of the subject program will be up- 
dated. References to addresses outside the sub- 
ject program (e.g. for Monitor calls) need not 
be changed. 
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This is actually a table of pointers to 


USING . RELOC8 


To relocate a machine-language program, the 
following procedure is followed: load RELOC8 
into the Apple and load the subject program into 
its "old" location. Type an Apple Move command 
to move the subject program to its "new" address 
followed by a space and control-Y. The RELOC8 
program will print all modified instructions and 
then exit when it's done. For example, to re-' 
locate a subject program from "old" location 
1500-1800, to "new" location 2A00-2D00, one 
would type the following command: 


# 2A00<1500.1800M Ye 


This is a standard "move" command, moving the 
program with the Apple Monitor; however, we 
follow the "M" with a space and a control-Y so 
that RELOC8 will be entered immediately follow- 
ing the move command. When it is entered, 
RELOC8 picks up the address values from the 
"move" command. ' 


A FEW WORDS OF WARNING 


There is something to watch out for while using 
RELOC8. Since it scans the subject program for. 
absolute addresses, any data imbedded within the 
program may cause RELOC8 to think the data is an 
instruction. In that case, the data will be 
modified and RELOC8's opcode scan might get “out 
of sync" with the real instructions in the sub- 
ject program. It's best to try and keep data 
separate from instructions; if RELOC8 does modi- 
fy some data, you'll have to fix it before run- 
ning the relocated program. 


AR AARRRAERKRRERERAAARAARAAKKAKE 


x RX 

* MACHINE-LANGUAGE * 

& PROGRAM RELOCATOR * 

& 

* -- RELOC8 <- * 

* ® 

* RICK AURICCHIO 10/26/78 * 

*& *& 

* FOR THE APPLE-II x 

* *& 
KKRARKKKARKKKKRKRKRKKKKKKKRaRRRKK 

x 

hk m—-— SWEET-16 REGISTERS 

*& 

AC EQU 0 Ru: ACCUMULATOR 
OB EQU 1 Rl:OLD BASE 

OE EQU 2 R2:O0LD END 

NB EQU 3 R3:NEW BASE 

NE EQU 4 R4:NEW END 

RB EQU 5 R5:RELOCATION BIAS 


& 


00000000 
00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
00000008 
00000009 


OO00F689 
OOOOFS88E 
OO0OOFS8DO 


0000002F 


0000003C 


0000003D 
00000040 
00000041 
00000044 
00000045 
0000003A 
00000038 


0300 
0300 
0302 
0304 
0306 


0308 
030A 
030C 
030E 


0310 
0312 
0314 
0316 


AS 
85 
A5 
85 


A5 
85 
A5 
85 


A5 
85 
A5 
85 


ACL 
ACH 
OBL 
OBH 
OEL 
OEH 
NBL 
NBH 
NEL 


NEH 
* 


* 
SWEET16 
INSDS2 
INSTDSP 
% 
LENGTH 
A1L 

All 


ENTRY IS VIA CONTROL-Y AFTER 
MOVING PROGRAM TO ITS NEW 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


'WONUAURWNHRKO 


LOCATION IN MEMORY. THE 


COMMAND WILL BE PRESENT IN 
THE MONITOR WORK AREAS UPON 


ENTRY TO RELOC8. 


* 
x 
* 
* VALUES FROM THE APPLE °MOVE’ 
tk 
* 
k 
* 


ORG 

LDAZ 
STAZ 
LDAZ 
STAZ 


LDAZ 
STAZ 
LDAZ 
STAZ 


LDAZ 
STAZ 
LDAZ 
STAZ 


X°0300° 
A3L 
OBL 
A3H 
OBH 


AIL 
OEL 
All 
OEH 


A5L 
NBL 
A5H 
NBH 
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SWEET-16 INTERPRETER 
DISASSEMBLE WITHOUT PRINT 
DISASSEMBLE SINGLE INSTR. 


DISASSEMBLED INSTR LENGTH 
WORK BYTES FOR MONITOR 


PC LOW FOR DISASSEMBLER 
eeTAKE A GUESS... 


ORG TO PAGE 3 
MOVE OLD BASE 


MOVE OLD END (+1) 


MOVE NEW BASE 


0318 
O31B 
031C 
031D 
O31E 
O31F 
0320 
03212 
0322 


0323 
0325 
0327 
O32A 
032C 
032E 


0330 
0333 
0334 
0335 
0336 
0338 
0339 


0338 
033C 
033D 
O33E 


033F 
0340 
0341 
0342 
0343 
0344 
0346 
0348 
034A 
034C 
034F 
0352 


20 89 F6 


23 


00 
06 
8E 
2F 
02 
24 


89 


2A 


27 


00 
3A 
01 
3B 
DO 
89 
OE 


F8 


F6 


F8& 
F6 


e+e & DH 


+eyeye Hee HH 


--- COMPUTE NEW END AND 
RELOCATION BIAS. 


SWEET16 


SCAN THE PROGRAM FOR A 3-BYTE 


INSTRUCTION. 


ANY OTHERS DON’T 
HAVE TO BE RELOCATED. 
ADDRESS IS OUTSIDE THE PROGRAM, 


THEN WE CAN LEAVE IT ALONE. 


OTHERWISE, UPDATE IT BY ADDING 


THE RELOCATION BIAS. 


GETINST LDYIM 


¢*et & & 


+ 


LDALY 
JSR 
LDAZ 
CMPIM 
BNE 


IF THE ADDRESS IS WITHIN THE 


0 

NBL 
INSDS2 
LENGTH 
2 
NXTINST 


PROGRAM, RELOCATE IT. 


JSR 
INR 
LDD 
CPR 
BNC 
CPR 
BC 


SWEET16 


ADD RELOCATION BIAS. 


ADD 
DCR 
DCR 
STD 


RB 
NB 
NB 
NB 


--- ANNOUNCE THE CHANGE --- 


LD 
DCR 
DCR 
DCR 
RTN 
LDAZ 
STAZ 
LDAZ 
STAZ 
JSR 
JSR 
BR 


NB 
AC 


ACL 

PCL 

ACH 

PCH 
INSTDSP 
SWEET16 
NXT1 
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IF THE 


& 


GO TO SWEETIE 


RELOCATION BIAS 
IS DIFFEREOCE 


COMPUTE SIZE 

ADD TO NEW BASE 

AND WE HAVE NEW END 
6502 MODE! 


DUMMY INDEX 

GET OPCODE 

GET ITS LENGTH 
CHECK LENGTH 

3 BYTES? 

=>NOPE. SKIP IT. 


H1, SWEETIE! 

BUMP TO ADDRESS 

GET BOTH BYTES 

>= OLD BASE? 
=>LOWER. NO CHANGE. 
<= OLD END? 
=>HIGHER. NO CHANGE. 


ADD BIAS 

BACK UP TO 
ADDRESS AGAIN 
STUFF BACK THERE 


BACK UP POINTER 
TO OPCODE 
FOR THE 
DISASSEMBLER 
BACK TO 6502 MODE 
MOVE POINTER 
TO -PCH/PCL 
FOR THE 
DISASSEMBLER 
PRINT MODIFIED INSTR. 
RE-ENTER SWEETI6 TO 
CONTINUE... 


WE°VE GOT A 1 OR 2 BYTE 
INSTRUCTION. UPDATE THE 
NB POINTER TO THE NEXT 


e+e ee De 


INSTRUCTION. 
0354 18 NXTINST CLC 
0355 69 01 ADCIM 1 UPDATE LENGTH: 1/2/3 
0357 85 00 STAZ ACL GET LENGTH 
0359 A9 00 LDAIM 0 HI=0 
035B 85 01 STAZ ACH 
035D 20 89 F6 JSR SWEET16 BACK TO SWEETI6 
0360 A3 ADD NB BUMP IT 
0361 33 ST NB PUT BACK THERE 


& 

* CHECK TO SEE IF WE’RE DONE 
* WITH THE PROGRAM YET. 

% 


0362 23 NXTl LD NB GET CURRENT ADDRESS 
0363 D4 CPR NE OVER THE END? 

0364 03 04 BC DONE =>YUP. ALL DONE! 
0366 00 RTN #>NO. BACK TO THE 
0367 B8 CLV 6502 MODE FOR 
0368 50 B9 BVC GETINST MORE WORK! 


& 


* ALL DONE. EXIT TO MONITOR. 
*& 


036A 00 DONE RTN 6502 MODE, PLEASE! 
036B 60 RTS BACK TO MONITOR! 
*% 
& 
O3F8 ORG X°03F8° CONTROL-Y ENTRY 
O3F8 4c 00 03 JMP RELOC8 ROLL STONE, GATHER MOSS... 
* 
END 


(cr cc A eS SS  —__E—E=—E—eEeeeeem 
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A MEMORY TEST PROGRAM FOR 
THE COMMCDORE PET 


Michael J. McCann 
28 Ravenswood Terrace 
Cheektowaga, NY 14225 


It would be useful and convenient to be able to 
test PET's memory with a testing program rather 
than sending the machine back to Commodore for 
service. Towards this end I have written a 
memory test program in Commodore BASIC for the 
PET. The program is well commented, and should 
be self documenting. (see listing) 


Since the program occupies the lowest 4K of 
PET's memory, use of the program will require 
that the lowest 4K of memory be operating norm- 
ally. The amount of time required to run this 
program rapidly increases as the number of bytes 
under test is increased (see Figure 1.) 


Testing large blocks of memory results in more 
rigorous testing at the expense of time. There- 
fore, when using this program the user will 
have to make a decision regarding rigor vs. 
time. As a bare minimum, I would suggest test- 
ing 100 bytes at a time. 


In closing I would suggest that you get this 
program up and running before you have a prob- 
lem. It may prove difficult to get a new pro- 
gram working when you have a major system prob- 
em. 


10 REM MEMORY TEST PROGRAM FOR THE COMMODORE PET 
REM PROGRAM WILL RUN ON 8K PET 
REM BY MICHAEL J MCCANN 

PRINT CHR$( 147) :EE=0:I=0 

INPUT "START ADDRESS"; SA 
IF SA<4097 OR SA>65535 GOTO 50 
INPUT "STOP ADDRESS"; SP 

IF ST>65535 OR SP<SA GOTO 70 
PRINT CHR$(147):PRINT: PRINT 

PRINT TAB(5)"WORKING" 

PRINT: PRINT"FAULT IN ADDRESS:"; 
REM MEMORY ACCESS AND LOGIC CIRCUITRY TEST 
REM WRITE ALL 0 

FOR A=SA TO SP 

POKE A,O 

NEXT 

REM CHECK FOR CORRECTNESS (=0) 
FOR A=SA TO SP 

IF PEEK(A)<>0 THEN EE=1:GOSUB 800 
NEXT 

REM WRITE ALL 255 

FOR A=SA TO SP 

POKE A, 255 

NEXT 

REM CHECK FOR CORRECTNESS(=255) 
FOR A=SA TO SP 

IF PEEK(A)<>255 THEN EE=1:GOSUB 800 
NEXT 

REM BEAT TESTS 

REM WRITE ALL 0 

FOR A=SA TO SP 

POKE A,0 

NEXT 

REM BEAT ONE ADDRESS WITH 255 
AD=SA+1 

POKE AD, 255 

POKE AD,255 

-POKE AD,255 

POKE AD,255 

POKE AD,255 


390 


400 
410 
420 
430 
4k 
450 
460 
470 
480 
490 
500 
505 
510 
520 
530 
540 
550 
560 


570 
580 
590 
600 
610 
620 
630 


640 
650 
660 
670 
680 
690 
700 
105 
710 
720 
730 
740 
750 
760 
TT0 


780 


800 
810 
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REM CHECK ALL FOR O EXCEPT THE ADDRESS 
BEAT WITH 255 

FOR A=SA TO SP 

IF A=AD GOTO 430 

IF PEEK(A)<>0 THEN EE=1:GOSUB 800 

NEXT 

IF AD=SP+1 THEN POKE AD,0: IsI+1: GOTO 335 
I=0 

REM WRITE ALL 255 

FOR A=SA TO SP 

POKE A,255 

NEXT 

REM BEAT ONE ADDRESS WITH 0 

AD=SA+I 

POKE AD,0O 

POKE AD,0O 

POKE AD,0O 

POKE AD,0 

POKE AD,0 

REM CHECK ALL FOR 255 EXCEPT THE ADDRESS 
BEAT WITH 0 

FOR A=SA TO SP 

IF A=AD GOTO 600 

IF PEEK(A)<>255 THEN EE=1:GOSUB 800 

NEXT 

IF AD<>SP+1 THEN I=I+1:POKE AD,255:GOTO 505 
REM ADDRESSING TEST . 
REM WRITE CONSECUTIVE INTEGERS (0-255) IN 
ALL LOCATIONS UNDER TEST 

I=0 

FOR A=SA TO SP 

IF I=256 THEN I=0 

POKE A,I 

I=sI+1 


NEXT 

REM CHECK FOR CORRECTNESS 

I=0 

FOR A=SA TO SP 

IF I=256 THEN I=0 

IF PEEK(A)<>I THEN EE=1:GOSUB 800 
IsI+1 

NEXT 

PRINT 

IF EE=0 THEN PRINT" NO MEMORY PROBLEMS DE- 
TECTED" 

END 

PRINT A; 

RETURN 


3.0 


N 
>) 


LOG (TIME) 
~ 
o 


O 100 200 300 
BYTES TESTED 


Figure 1. Graph of Log(Time Required) vs. 
Number of Bytes Tested. (Time in Seconds) 


PEEKING AT PET'S BASIC. 


Harvey B. Herman 
Chemistry Department, U. of N. Carolina 
Greensboro, NC 27412 


Commodore, for reasons best known to them, has 
seen fit to prevent users from PEEKing at PET's 
ROM located, 8K BASIC. If you try to run a pro- 
gram that says, PRINT PEEK (49152), the answer 
returned will be zero instead of the actual ins- 
truction or data in decimal. Disassemblers 
written in BASIC will therefore not work prop- 
erly if they use the PEEK command and try to 
disassemble 8K BASIC (decimal locations 49152 to 
57520). I was curious to see how the PET's 8K 
BASIC was implemented and decided to write a ma- 


chine language program which circumvents the re— 


striction. 


A listing of the above program which I have cal- 
led MEMPEEK follows. It is decimal 22 bytes 
long, relocatable, and can be stored into any 
convenient area of memory. I have chosen to use 
the area devoted to the second cassette buf- 
fer starting at hex 33A. As long as the second 
cassette is not used the program should remain 
inviolate until the PET is turned off. Storing 
the program in memory is trivial if a machine 
language monitor is available. Otherwise con- 
vert the hex values to decimal and manually poke 
the values into memory. As of this writing, 
Commodore's free, long-awaited, TIM-like monitor 
has not arrived but I continue to hope. 


MEMPEEK utilizes the user function (USR) which 
jumps to the location stored in memory locations 
1 and 2. If MEMPEEK is stored in the second 
cassette buffer (hex 33A) initialize locations 
1 and 2 to decimal 58 and 3 respectively. MEM- 
PEEK was written so that the user function re- 
turns the decimal value of the instruction given 
by its argument (address). For example, if you 
want to peek at an address less than decimal 
32768 (not part of the BASIC ROMs) use in your 
program Y=USR (address), where address is the 
location of interest and the value of Y is set 
to the instruction at that address. Since the 
argument of the user function is limited to 
+32767, use address -65536 for addresses larger 
than 32768. Thus to look at locations in the 
BASIC ROMs (all above 32768 and where MEMPEEK is 
particularly useful) use Y=USR (address -65536). 
It is not possible to look at location 32768 
(the. start of the screen memory) with this pro- 
gram but this should prove no handicap as PEEK 
could be used. 
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MEMPEEK takes advantage of two subroutines in 
the PET operating system. The first (located at 
hex DOA7) takes the argument (address) in the 
floating point accumulator (conveniently placed 
there by the user function) and converts it into 
a two byte integer stored at hex B3 and B4. 
Since I choose to use an indirect indexed instr- 
uction to find the desired instruction the order 
of the two bytes at hex B3 (MSB) and BY (LSB) 
need to be reversed. The second subroutine at 
hex D278 converts a 2 byte integer representing 
the instruction from the accumulator (MSB) and 
the Y register (LSB) to floating point form and 
stores it in the floating point accumulator. 
This value, the instruction, is returned to 
BASIC as the result of the user function. 


The program, MEMPEEK, is fairly simple but would 
be unnessary if the arbitrary restriction on 
PEEKing at BASIC was removed. The restriction 
makes no sense to me as even a relatively inex- 
perienced machine language programmer (myself) 
was able to get around it. This type of program 
would of course not be difficult for competitors 
of Commodore to write. I wrote this program for 
the fun of it, to try to understand how BASIC 
works and in the hope others will find it use- 
ful. Furthermore, I hope I can discourage other 
manufacturers like Commodore from trying to keep 
hobbyists from a real understanding of their 
software by arbitrary restrictions. 


MEMPEEK Program 


033A 1 #=$33A 

033A 20A7D0 2 JSR $DOA7 ; convert to integer 
033D A6B3 3 LDX $B3 ; interchange - 

033F AYBY 4 LDY $B4Y =; $B3 and $B4 

0341 86B4 5 STX $Bu 

0343 84B3 5 STY $B3 

0345 A200 7 LDX #0 ; initialize index 
0347 A1B3 8 LDA ($B3,X); find instruction 
0349 A8 9 TAY 

O34A A900 10 LDA #0 

O34C 2078D2 11 JSR $D278 ; convert to floating 
O34F 60 12 RTS ; return to BASIC 
0350 13 END 


PET UPDATE 


Gary A. Creighton 
625 Orange Street, No. 43 
New Haven, CT 06510 


I am writing this article because I'm tired of 
seeing the same rehash of pseudo-facts being re- 
peated about the PET. If I read one more time 
about the small keyboard or the RND function not 
working correctly...! As you will see, the 2001 
has an extremely well designed Interpreter which 
ean be used effectively as subroutines either 
from the SYS command, or the USR command. Par- 
ameter passing will be revealed as an easy oper- 
ation, and returning USR with a value is just as 
simple. The RND function may be substituted 
with a twelve byte USR program to make it com- 
pletely random and non-repeating (as it stands, 
it repeats every 24084 times through) and I will 
show the use of negative arguments. Unfortun- 
ately, RND(O) was apparently a mis-calculation 
on Microsoft's part. They figured that ROM 
empty locations would turn out to be more random 
than the end product shows. They load non-exis- 
tent memory locations into the RND store area 
(218-222) thus causing a resulting RND value 
which fluctuates between a few different values. 
When ROM is finally installed in that area 
(36932) the RND(O) will have the dubious quality 
. Of being some fixed number. 


RND FUNCTION USE 


The RND function may be set at any time to exec- 
ute a known series of RND #'s by using a known 
negative argument just before RND with a posi- 
tive one. The ability to have available a know 
list of random numbers is very important in a 
lot of sciences. 


10 R=RND(-1) 

20 FOR X=1 TO 5 

30 PRINT INT(1000*RND(1)+1), 
4Q NEXT X 


Gives the sequence: 736, 355, 748, 166,629 


Since RND(-low#) gives such a small value, use 
a negative argument in the range (-1 E10 to -1 
E30) if you need one repeatable RND number with 
a useful value, e.g., RND(-1 E20)= .811675238. 


Concerning the true random nature of RND and 
it's ability to act randomly at all times; time 
must be combined with RND. This is possible 
with a RANDOMIZE subroutine or faster still, re- 
doing RND(+) with a USR routine. 


10000 REM (RANDOMIZE) 

10010 R1=PEEK(514) : R2=PEEK(517) 
10020 POKE 220, R1 : POKE 221, R2 
10030 RETURN 


This 
tion 
will 
ever 


routine may be used at program initializa- 
and as the program halts for an INPUT. It 
start a new sequence of RND numbers when- 
called. 


When the computer does a sequence without inter- 
vention, the following USR program is suggested 
which will return a truly random number quickly; 
without repeating. 


10 REM (TRUE RND USING USR FUNCTION) 
20 POKE 134,214 : POKE 135,31 : CLR 
30 FOR X=8150 TO 8165 

40 READ BYTE : POKE X, BYTE 
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50 NEXT X 
60 DATA 173,2,2, 133,220, 173,5,2, 133,221, 76 
70 POKE 1, 214 : POKE 2, 31 


MACHINE LANGUAGE STORING IN BASIC 


When using machine language, always precede 
storing by setting up BASIC's upper boundary. 
This is done by: 

POKE 134, ITEM : POKE 135, PAGE : CLR 

e.g. POKE 134, 0 > POKE 135, 25 : CLR 

sets upper boundary to 6400 and BASIC use will 
be confined to 1024 to 6399 unless reset or 
turned off. 


You can use the following program for storing 
decimal. Changing INDEX to 10000 to appropriate 
position and typing in DATA lines in 100 to 
9997. 


EM ("MACHINE STORE"). 
EM WRITTEN BY GARY A. CREIGHTON, JULY 78 
EM ( SET INDEX=ORIGIN IN LINE 10000 ) 


wy 


5 REM FIX UPPER STRING BOUNDARY 
GOSUB 10000 

X=INDEX / 256 

PAGE=INT(X) 

ITEM=(X-PAGE)# 256 

POKE 134, ITEM 

POKE 135, PAGE 

CLR 


REM LOAD MACHINE LANGUAGE 
GOSUB 10000 : LOC=INDEX 

READ BYTE : IF. BYTE<O THEN END 
POKE LOC, BYTE 

LOC=LOC+1 : GOTO 70 


REM MACHINE LANGUAGE DATA 
100 DATA 


9997 DATA 
9998 DATA 0,0,0,-1 
9 * 


9999 : 
10000 INDEX=(START OF MACHINE LANGUAGE) 
10010 RETURN 


USR PARAMETER PASSING 


The following are parameter passing rules for 
the USR function and should be added to the 
"MACHINE STORE" progran. 


O REM ("USR(O TO 255)") 

46 POKE 1, ITEM 

48 POKE 2, PAGE 

100 REM (USR INPUT 0-255; OUTPUT 0-255) 
110 DATA 32,121,214 : REM JSR 54905 


120 DATA (Your program using input value) 


5000 DATA (Setup output value in Accum.) 
5010 DATA 76,245,214 : REM JMP 55029 
10000 INDEX 6400 


° OR 


O REM ("USR(O TO 65535)") 
46 POKE 1, ITEM 
48 POKE 2, PAGE 
100 REM (USR INPUT 0-65535;O0UTPUT 0-65535) 
110 DATA 32,208,214 : REM JSR 54992 
(Note: Check if 0-65535. RTS with: 
Y and M(8)= ITEM 
A and M(9)= PAGE 
120 DATA (Your program using 2 byte passed 
value 


5000 DATA (Setup output vlaue ITEM in Y; 
PAGE in A) 

5010 DATA 132,178 : REM STYZ 178 

5020 DATA 133,177 : REM STAZ 177 

5030 DATA 162,144 : REM LDXIM 144 

5040 DATA 56 : REM SEC 

5050 DATA 76,27,219 : REM JMP 56091 


(Setup output value and RTS) 


O REM ("SAVEM") 


The input parameter may be any complex express- 
ion and you can of course: 


input 0-255 and output 0-65535, or 
input 0-65535 and output 0-255. 


SAVE MACHINE LANGUAGE AND LOAD DIRECTLY 


The reason for the 0,0,0 at the end of the pre- 
ceding machine language programs is that the 
saving routine described next SAVES machine 
language until 0,0,0 or an ERROR is printed. 
After it has been saved in this way, it may be 
LOADED and VERIFIED with little effort. 


Add to "MACHINE STORE" program (all assembly is 


in decimal). 


100 REM ERAMs31 (or last page of RAM on 
110 DATA 32,200,0 : REM JSR 
120 DATA 208,3 : REM BNE 
130 DATA 76,158,246 : REM JMP 
OVER 140 DATA 32,17,206 : REM JSR 
150 DATA 32,164,204 : REM JSR 
160 DATA 32,208,214 : REM JSR 
170 DATA 132,247 : REM SYTZ 
180 DATA 133,248 >: REM STAZ 
190 DATA 170 : REM TAX 
200 DATA 152 : REM TYA 
210 DATA 208,1 ; REM BNE 
220 DATA 202 REM DEX 
OVR2 230 DATA 136 : REM DEY 
240 DATA 132,80 : REM STYZ 
250 DATA 134,81 ; REM STXZ 
260 DATA 169,173 : REM LDAIM 
270 DATA 133,79 : REM STAZ 
280 DATA 169,96 : REM LDAIM 
290 DATA 133,82 REM STAZ 
300 DATA 32,200,0 ; REM JSR 
310 DATA 201,44 : REM CMPIM 
320 DATA 208,3 : REM BNE 
330 DATA 32,194,0 : REM JSR 
OVR3 340 DATA 32,51,244 ; REM JSR 
AGAIN 350 DATA 230,80 >: REM INCZ 
360 DATA 208,2 : REM BNE 
370 DATA 230,81 : REM INCZ 
OVR4 380 DATA 32,79,0 >: REM JSR 
390 DATA 208,27 : REM BNE 
400 DATA 160,1 : REM LDYIM 
410 DATA 177,80 : REM LDAIY 
420 DATA 208,21 : REM BNE 
430 DATA 200 : REM INY 
4KHQ DATA 177,80 ; REM LDAIY 
450 DATA 208, 16 : REM BNE 
460 DATA 24 : REM 
470 DATA 165,80 : REM 
480 DATA 105,4 : REM 
490 DATA 13 
460 DATA 24 : REM CLC 
470 DATA 165,80 : REM LDAZ 
480 DATA 105,4 : REM ADCIM 
490 DATA 133,299 : REM STAZ 
500 DATA 165,81 : REM LODAZ 
510 DATA 105,0 : REM ADCIM 
520 DATA 133,230 : REM STAZ 
530 DATA 76,177,246 REM JMP 


200 check if : or end of line 
OVER 
63134 jump ‘SAVE' if SYS 8000 only 
52753 check if ',’ 
52388 analyze arithmetical argument 
54992 check if 0-65535 
247 ‘save from' item 
248 ‘save from' page 
OVR2 
back up 1 
80 initialize CHK pointer item 
81 initialize CHK pointer page 
173 
79 LDA instruction in 0079 
96 
82 RTS instruction in 82 
200 
Hy check if ',' before filename 
OVR3 
194 move code pointer over ',' 
62515 get options for "SAVE! 
80 
OVR4 
81 add 1 to CHK pointer 
79 look at next CHK code 
CHEND 
1 check for 0,0,0 
80 
CHEND 
80 
CHEND 
CLC 
LDAZ 80 
ADCIM 4 
80 
4 
229 "save to' item 
81 
0 
230 "save to' page 
63153 complete "SAVE! 
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your PET) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CHEND 540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
THO 
750 
760 
770 
780 


CHKNF 


END 


After typing and saving normally, type RUN when 
Save “SAVEM" using itself to save itself 


READY. 
by typing: 


SYS 8000,8000, "SAVE(SYS 8000)" 


165,81 
201,31 
240,10 
144,210 
32,184, 31 
162,85 

76, 108, 195 
165,80 
201,253 
144, 196 
32, 184,31 
160,40 

76 , 133, 245 
169, 13 
32,234,227 
169 , 63 
32,234,227 
169,69 
32,234,227 
169,78 
32,234,227 
169 , 68 
32,234, 227 


DATA 96 
REM (FORMAT: SYS 8000, INDEX,"FILENAME" , DEVICE#,I/O OPTION) 


when READY., REWIND TAPE #1 and type: 


VERIFY "SAVE(SYS 8000)" 


MACHINE LANGUAGE LOAD PROCEDURE 


After SAVEing machine language, 


these rules. 


OK=-1 


A=PEEK( 247) 
POKE 134,A 
POKE 1,A 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 CLR 
1 


WAIT 519,4,4 
WAIT 59411,8,8 
WAIT 59411,8 


REM 


LDAZ 
CMPIM 
BEQ 


RTS 


81 
ERAM 
CHKNF 
AGAIN 
END 
85 
70028 
80 
253 
AGAIN 


END 
40 
62853 
13 
58346 
63 
58346 
69 
58346 
78 
58346 
68 
58346 


check: ‘not found! if last 
look at next if less than 


("2END) NOT FOUND ERROR" 


again if enough room 


("2END) NOT FOUND ERROR" 


"END" 


Loading machine language before BASIC program: 


LOAD “machine language name" 


NEW 
A=PEEK(247) :B=PEEK(248) 

POKE 134,A :POKE 135,B 

POKE 1,A :POKE 2,B (only if USR, not SYS) 
CLR 


Then LOAD BASIC Program. 


Loading machine language from BASIC program: 


you have the 
capability of LOADing directly if you follow 


IF OK THEN RUN 6 
: PRINT "PRESS REWIND ON TAPE #1" 
: REM wait til stop if play down but not motor 
>: REM wait til key on cassette pushed 


: REM wait til stop on cassette pushed 
LOAD “machine language name" 


: B=PEEK(248) 


: POKE 135,B 


: POKE 2,B : 


REM (only if USR, not SYS) 
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O REM (BEGIN BASIC PROGRAM, MACHINE LANGUAGE LOADED) 


HOW GOES YOUR ROM TODAY? 


Harvey B. Herman 
Chemistry Department 
University of North Carolina~Greensboro 
Greensboro, North Carolina 27412 


Everytime | turn on my KIM-system or PET Personal Computer | 
keep my fingers crossed that everything works. So far | have been 


“lucky” and the few failures were patently obvious. However, | 


have been concerned about the possibility of subtle errors 
appearing which, while not obvious, will still cause programs to 
print garbage out without my having inputted garbage. To ease my 


troubled mind, | wrote an assembly language program which. 
computes a checksum byte from the data in a specified area of | 


memory. The 6502 programs, which | named CHECK, can be used 
to check data in both ROMs and RAMs for erroneous bits. 


The program for a KIM system is shown in Figure 1. It can be 
entered into memory with the KIM monitor program or an 
assembler. With a few minor changes, which | believe are obvious 
by looking at the code, it can be placed practically anywhere in 
memory. The program requires four zero page locations to be 
initialized to the starting and ending locations of the specified 
area. | used locations hex E1, E2 and E3, E4 respectively (low byte 
first) as these were the first free page zero locations in Microsoft 
8K BASIC. The reader may wish to change these locations if it 
interfers with other programs that are frequently used. The KIM 
CHECK program ends with a BRK (break) instruction and will not 
operate properly unless two locations, hex 17FE, 17FF, are 
initialized to 00, 1C, respectively. The BRK instruction, when 
executed will then jump to the start of the KIM monitor and 
among other things, print the value saved in location hex 31D - the 
calculated checksum. Initialization and executation of this 
program can be done with the KIM monitor. The checksum bytes 
which | calculated for two different KIM system ROMs are shown 
in Table 1. 


Several changes are necessary that allow a similar program to work 
on Commodore’s PET computer. The modified program is shown in 
figure 2 and is a listing from a cross assembly done on the KIM 
system. The values could be placed in memory with a monitor 
program, if available, or as | did, poked into memory from a BASIC 
program. The latter approach requires a conversion from hex to 
decimal before using the POKE command. Again, as before, four 
locations in page zero need to be initialized. Part of the area 
reserved for the second cassette buffer was used for the program 
(hex 33A-371) and four locations (hex 53-56) in the keyboard buffer 
were used for the page zero locations representing the starting and 
ending locations of the area to be checked. The PET CHECK 
program is designed to be run from BASIC. A call to the USR (user) 
function, ?USR(0), jumps to the checksum program and returns the 
checksum value. The program has two entry points. It can be used 
to calculate checksums (see Table 1) for the BASIC interpreter 
and/or the operating system (both are in ROM) or BASIC programs 
which have just been loaded or saved. The latter use somewhat 
obviates the need to use the VERIFY tape command after a load. 
This can save considerable time particularly if long programs are 
loaded. Alternate entry points are specified by POKEing locations 
1 and 2 to decimal 58 and 3 for program checks and to decimal 82 


and 3 for ROM checks, respectively. The starting and ending 
locations in page zero are automatically set by the program for 
program checks but must be specified for ROM checks. 


Further details on the use of each program is shown in Table 2. The 
checksums calculated are the exclusive OR of all the bytes 
between the starting and ending addresses, inclusively. Changing 
as little as one bit in the sequence will give a different value for the 
checksum. There is a finite probability that when extensive errors 
are encountered the checksum calculated would fortuitously be 
the same, since only 256 different 8 bit checksums are possible. 
However, in that case the errors would probably not be subtle and 
you would not be fooled. Whenever the checksums for the ROMs 
change it would be prudent also to run a diagnostic test on the 
6502 MPU before blaming the ROM. Since programs like that are 
sadly lacking | will leave it as an exercise for the reader. A program 
and article to that effect would be greatly appreciated by the 
author for one, and | believe most of 6502 personal computing 
fraternity. 


KIM ROMs (Serial numbers 1988 and 6931) 


Locations (Hex) Checksum (Hex) 


1800-1BFF F5 
1CO0-+1F FF F8 
1800-1FFF OD 


KIM CHECK Program. Example for 1800-1FFF. 
After placing program from Figure 1 into 
memory 


KIM 

17FE 0. 

17FF 1C. 0300 AD G 

E 1 0. KIM 

E2 18. 031D (CHECKSUM) 
E3 FF. 

EY 1F. 


PET CHECK Program. After poking program 


PET ROMs (Serial numbers 10252 & 20549) ; 
from Figure 2 into memory 


Locations (Hex) Loc.(Dec., Inv.) Check Program Checks ROM Checks 
COO0-CFFF 0, 192-255 , 207 189 POKE 1,58 (Example for C000- 
DOOO-DFFF 0, 208-255 , 223 87 POKE 2,3 CFFF) 
E000-E777 0, 224-119, 231 26 LOAD "program name" POKE 1,82 
FOOO-FFFF 0, 240-255, 255 92 or POKE 2,3 
SAVE “program name" POKE 83,0 
2USR (0) POKE 84,192 
(checksum returned POKE 85,255 
depends on program) POKE 86,207 
2USR (0) 
189 (Checksum 
returned ) 
O33A i 3 KIM CHECKSUM PROGRAM 
O33A 2 3 HARVEY Be HERMAN 
033A 3 3 INITIALIZE S17FE/FF 
033A 4 3 T®@ O71C SO BRK WORKS- 
OOE! 5 *nSE} 
OOE! 0000 6 START eWORD O 
OOE3 0000 7 END eW2RD O 
0300 8 *= $300 
0300 9 3 ENTER HERE FOR 
0300 10 3 CALCULATION OF 
0300 11 3 CHECKSUM BETWEEN 
0300 i2 3 START AND ENDe 
0300 13 3 ANS DISPLAYED LOC 315 
0300 AO0QOO 14 LDY #0 
0302 BIEI 15 LDA CSTART)sY 
0304 E6EI 16 LOOP INC START 
0306 bDOO2 17 BNE CHECK 
0308 E6E2 18 INC START?! 
O30A S1E1 19 CHECK EOR (START) sY 
O30C A6E4 20 LDX END+! 
O30E E4E2 21 CPX START+?1 
0310 DOF2 22 BNE L@QP 
0312 A6E3 23 LOX END 
0314 E4E1 24 CPX START 
0316 DOEC 25 BNE LOOP 
0318 8D1D03 26 STA #45 
031B 00 27 BRK 
031C 28 eEND 
Figure 1 


KIM Checksum Program. 
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033A 
033A 
0053 
0055 
033A 
033A 
033A 
033A 
033A 
033C 
O33E 
0340 
03542 
0344 
0346 
0348 
0349 
034C 
O34E 
0350 
0352 
0352 
0352 
0352 
0352 
0354 
0356 
0358 
O35A 
035C 
O35E 
0360 
0362 
0364 
0366 
0368 
036A 
036B 
036D 
0370 
0371 
0372 


1 3 PET CHECKSUM PROGRAM 
2 3 HARVEY Be HERMAN 
3 START2$53 
4 END=$55 
i *eS33A 
6 3 ENTER HERE T@ CHECK 
7 8 BASIC PROGRAMS AFTER 
S 3 LOAD OR SAVE. 
9 PROG LDA #0 
10 STA START 
11 LDA #4 
le STA START?¢1 
13 LDA SE6 
14 STA END1 
iS LDA SES 
16 SEC 
17 SBC TWO 
18 BCS SKIP 
i9 DEC END+1 
20 SKIP STA END 
2i 3 ENTER HERE T@ CHECK 
22 38 ANY LOCATIONS IN 
23 3 MEMORY: INITIALIZE 
24 3 $53-$56 FIRST. 
25 ROM LDY #0 
26 LDA (START) s¥ 
27 LOOP INC START 
28 BNE CHECK 
29 INC START?41 
30 CHECK EOR (STARTIsY 
31 LDX END+1 
32 CPX START?! 
33 BNE LOOP 
34 LDX END 
35 CPX START 
36 BNE LOOP 
37 TAY 
38 LDA #0 
39 JSR $D278 
40 RTS 
Ai Two eBYTE 2 
42 eEND 


Figure 2 
PET Checksum Program 
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HIGH-RESOLUTION PLOTTING FOR THE PET 


The PET Machine Language Monitor gives PET users a greatly ex- 
panded ability to devleop and use assembly language programs. 
While early buyers of PET have had to wait a while for the Monitor, 
the ability to save and load machine !anguage programs directly to 
and from cassette is well worth the wait. Access to machine 
language has always been available through the POKE command, 
but translating op codes and addresses from hex to decimal and 
back is tedious. Also, the need to load a program via another BASIC 
program or via the keyboard is wasteful and time-consuming. PET’s 
Monitor allows an assembly language program to be saved and 
loaded as easily as the BASIC program. Better yet, an assembly 
language program can be written to reside in an unused section of 
memory such as the second cassette buffer. A BASIC program can 
then be loaded in the usual manner and can use the machine 
language program as a subroutine. 


One way that the use of a resident machine language routine can be 
a big help is in implementing high-resolution plotting on the PET. 
High-resoltuion plotting, in effect, expands PET’s 40 X 25 character 
display to 80 X 50. Todo so, each character is divided into quarter 
characters. The four basic quarter characters are displayed by 
pressing “SHIFT” and “,” or “;” or “&” or “>”. There are a total of 
sixteen possible combinations of these four quarter characters 
which can be used to produce a high-resolution plot. The process of 
producing such a plot in BASIC, however, is complex and slow. A 
machine language subroutine, on the other hand, can make the 
plotting process quite simple. For example, the Lissajous figure in 
* Figure 1 was plotted with this program: 


10 POKE 1,58:POQKE 2,3:PRINT (clr)" 
20 DELTA=2*7/900 

30 P=3:Q=4 

4O FOR I=0 Te 900 

50 THETA=DELTA*I 

60 X=INT(39.54+38*COS (P*THETA ) ) 

70 Y=INT(25.5424*SIN(Q*THETA )) 

80 POKE 81,X:POKE 82,Y:A=USR(O) 

90 NEXT I 

100 GET A¢:IF Af="" THEN 100 


The machine language routine is called in line 80 with the USR 
command after first POKEing the X and Y coordinates to be plotted 
in memory locations 81 and 82, respectively. The values of P and Q 
in line 30 determine the shape of the figure. The machine language 
plotting routine used by the program is listed below. The procedures 
for using it are: 


LOADING - The program is initially loadéd into the second cassette 
buffer beginning in location $033A using the Monitor. The program 
is saved on cassette with the command: .S,01,HI-RES,033A,03CA. 
The value $03CA is the endng address plus one. Once saved, the 
program can be reloaded into the cassette buffer with the normal 
command: LOAD“ HI-RES”. 


BASIC INTERFACE - With HI-RES loaded, the BASIC driver program 
can be loaded from cassette using normal procedures or the ““NEW” 
command can be given and a new BASIC program entered from the 
keyboard. Before HI-RES can be called, the starting address, $033A, 
must be entered in memory locations 0001 and 0002. This was done 
in line 10 of the program above. HI-RES can now be called by the 
USR command. Before each call, the X and Y coordinates must be 
POKED into decimal addresses 81 and 82, respectively. Valid coor- 
dinate values run from 0 to 79 in the X direction and from 0 to 49 in 
the Y direction. Position 0, 0 is in the upper left-hand corner of the 
screen. 


John R. Sherburne 
206 Goddard 
White Sands Missile Range, NM 88002 


123 


OTHER - If zero is used as the argument of the USR command, the 
plotting routine will overwrite any character already on the screen. 
lf a value other than zero is used any non-plot character already on 
the screen will be left there. Thus axes and text can be preprinted on 
the screen and a graph later plotted without distrubing the preprin- 
ted data. 


RECREATIONAL GRAPHICS FOR PET 


There are probably a lot of practical uses for the PET high-resolution 
graphics program described above but | haven’t had time to find 
them yet. Instead, | have spent countless hours in front of the 
display watching PET draw intriguing designs for which there is 
relatively little practical purpose. My addiction started simply 
enough. To test the HI-RES plotting routine, | wrote a program to 
draw an elipse using the formula: X=P*COS(©®); Y=Q*SIN(@). 
Pleased with the result, | added a FOR loop to vary the values of P 
and Q and produced the family of elipses shown in Figure 1. | didn’t 
realize it but | had embarked on a project which would take every 
free moment for the next two weeks. 


The next step was to modify the formula so that a flower rather than 
an elipse was preduced. The new formula was: 


X=R*COS (8); Y=R*SIN(S) where R=SIN(N*@) 
If N is odd, a flower with N leaves is 
produced; if N is even, the flower will 
have 2N leaves. Figure 2A is an eight 


Jeaved flower using the formula 
R=SIN(4*8). 
nate forumul: R=COS(4*8). 
ellipse, the next step was to produce a 


Figure 2B uses an alter- 
As with the 


family of flowers (Figure 2C) by adding 
a FOR loop to vary the size of the 
flower and to alternste between the two 
formulas. 


By now | was completely hooked. | dug into a dusty book of 
mathematical formulas and found two rather obscure figures, the 
epicycloid and hypocycloid. Best known from the toy “Spirograph’’, 
the epicycloid is formed by tracing the path of a point on the cir- 
cumference of a circle as it is rolled around the outside of a second 
circle. The hypocycloid is formed when one circle is rolled around 
the inside of the other. The formulas are: 


Epicycloid: 


(AN )+0*COS(P+0)*AN/Q) 
(AN )+Q*SIN(P+Q)*AN/Q ) 


*CQS 
*SIN 
Hypocycloid: 


CS (AN )+Q*COS (P-0 )*AN/Q ) 
IN(AN )-Q*SIN(P-Q)*AN/Q ) 


Q)* 
-Q) 


C 
*S 


*Note: Figure 1 on cover 


in both formulas P represents the radius of the stationary circle and 
Q the radius of the rolling circle. A typical epicycloid is shown in 
Figure 3. To plot these more complex figures a minor technical 
problem had to be solved. Many of the larger ‘‘cycloids” require 
more than one revolution of the rolling circle around the stationary 
circle. To avoid either stopping too soon or running too long, | had 
to add a routine to compute the number of revolutions required for 
the full figure. Since the rolling circle makes P/Q Revolutions in one 
circuit of the stationary circle, a complete figure is made when the 
rolling circle turns the number of times equal to the first integer 
multiple of P/Q. That multiple, N, times 2 is the number of points. 
or cusps in the cycloid. For convenience | print the number of cusps 
in the corner of the display. An eight cusp hypocycloid is shown in 
Figure 4. With both types of cycloid P and Q can be varied to 
produce a variety of figures. To avoid creating a figure too large to 
display, P must be £24 for a hypocycloid and P+2*Q “24 for an 
epicycloid. 


HI-RESOLUTION 


BY JOHN R. SHERBURNE 


FEBRUARY 1979 


033A ORG 
033A AY 00 START LDAIM 
C33C 85 53 STA 
O33E &5 56 STA 
C34C 38 SEC 
0341 AS 51 LDA 
0343 EO OF SBCIM 
0345 30 03 BMI 
0347 E6 54 INC 
0349 60 RTS 
C34A 38 CHECK SEC 
Q34B AS 52 LDA 
034D EY 31 SBCIM 
C34F 30 03 BMI 
C351 E6 55 INC 
0353 60 RTS 
0354 46 51 HALF  LSR 
0356 90 02 BCC 
0358 £6 56 INC 
O35A 46 52 NOCAR LSR 
0Q35C 90 04 BCC 
O35E E6 56 INC 
0360 E6 56 INC 
0362 AY Ol NOCRY LDAIM 
0364 A4 56 LOOP LDY 
0366 FO 06 BEC 
0368 OA ASLA 
0369 C6 56 DEC 
0368 4C 64 03 JMP 


As a final fillip, a third parameter can be added to the cycloia 
programs. Rather than trace a point on the circumference of the 
rolling circle, a point at a distance R from the center of the circle is 


traced. The value of R can be larger or smaller than Q. If R is larger 
than Q the formulas for determining the largest figure which the 


display can accomodate are: epicycloid, P+Q+R 
hypocycloid, P+R ~Q424. 


033A 


¢c0 
¢0053 
0056 


0051 
$4F 

CHECK 
$0054 


¢0052 
¢31 
HALF 
¢0055 


¢0051 
NCCAR 
{0056 
$0052 
NOCRY 
$0056 
¢0056 
¢01 

t0056 
MATCH 


{0056 
LOOP 
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INITIALIZE 


CHECK FOR VALID X 


CHECK FOR VALID Y 


DIVICE X AND Y BY 2 
DETERMINE QUADRANT CF NEW POINT 
AND PLACE QUADRANT NUMBER IN $0056 


O36E 
0370 
0372 
6374 
0376 
0378 
037A 
C37C 
O37E 
03e0 
0382 
0384 
0386 
0388 
O38A 
03eC 
Q38E 
0390 
0392 
0394 
0395 
0397 
0399 
0398 
039D 
Q39F 
035A] 
O3A2 
O3A5 
O3A7 
O3AS 
O3AB 
O3AC 
O3AF 


O3B0 
O5B1 
03B3 
03B4 
03B7 
03B9 


C3BA 
O3BB 
O3BC 
O3BD 
C3BE 
O5BF 
03CC 
03C1 
03C2 
03C3 
03504 
035C5 
0306 
03C7 
03C8 
C3C9 


85 
06 
06 
06 
A5 
06 
26 
0€ 
26 
65 
B5 
A5 
69 
85 
Ad 
65 
85 
70 
Eé 
18 
A9 
65 
85 
AQ 
A2 
Al 
88 
D9 
FQ 
CO 
DG 
A6é 
FO 
60 


98 
05 
A8 
BS 
8] 
E0 


20 
7E 
7C 
E2 
7B 
6 
FF 
EC 
é6C 
7F 
El 
FB 
62 
FC 
FE 
AD 


26 
52 
D2 
52 
D2 
D2 
D3 
32 
a3 
D2 
52 
D3 
00 
D3 
D2 
a1 
52 
02 
23 


&0 
D3 
53 
10 
OC 
D2 


BA 
09 
00 
F6 
Bl 
01 


BA 
D2 


MATCH 


NOCHG 


CRARAC 


FOUND 


TABLE 


ote eh ttt ta 


0056 
¢0052 
¢0052 
¢0052 
¢0052 
$0052 
¢0053 
$0052 
{0053 
¢0052 
¢0052 
¢0053 


' f00 


¢0053 
¢0052 
¢005) 
¢0052 
NOCHG 
¢0053 


¢20 
¢0053 
¢0053 
¢10 
f00 
¢0052 


TABLE 
FOUND 
$06 


CHARAC 


$00B1 
FOUND 


0056 


TABLE 
¢C052 


¢20 
¢7E 
¢7C 
TE2 
¢7B 
$6] 
¢FF 
$EC 
¢6C 
¢7F 
¢E1 
{FB 
¢62 
tFC 
{FE 
TAC 
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MULTIPLY Y BY DECIMAL 40. 
(NO. CHARACTERS PER LINE) 


ADD X T0 Y * 40. 


LOOK UP CHARACTER IN SCREEN 
POSITION X+Y¥*40 IN TABLE 


IF NOT IN TABLE, CHECK $81 FCR 


USR ARGUMENT 


COMPUTE NEW CHARACTER 


STORE NEW CHARACTER ON SCREEN 


TABLE CONTAINS ALL SIXTEEN POSSIBLE 
PLOT CHARACTERS 


POKE 1,58:POKE 2,3 
PRINT "(elr)" 

FOR R=4 TO 16 STEP 4 
P=38-R 

Q=8+R 

F=2* 77/300 

FOR I=0 TO 300 
AN=F#TI 
X=INT(39.5+P*COS( AN) ) 
Y=INT(24.5+Q*SIN( AN) ) 














POKE 81,X:POKE 82,49-Y:A=USR(0) 


NEXT I 
NEXT R 







GET G$:IF G$="" GOTO 130 





POKE 1,58:POKE 2,3 
PRINT "(clr)" 


FOR I=0 TO 600 


R=P*SIN(N*AN) 
X¥=INT(R*COS(AN)+39.5) 
Y-INT(R*SIN(AN)+24.5) 

POKE 81,X:POKE 82,49-Y:A=USR(0) 


9 
100 GET G$:IF G$="" GOTO 100 


(Changes to 2A only) 
55 R=P*COS(N* AN) 








1 
10 
20 
30 
40 
50 
60 
70 
80 
90 


100 NEXT I 
110 GET G$: IF G$="" GOTO 110 





FIGURE 2C 


(Changes to 2B only) 


20 N=4 

31 Kt=1 

32 FOR K2=0 TO 20 STEP 4 

33. P=x24-Ke 

34 K1=K1*®-1 

55 R=P*SIN(N*AN) 

56 IF K1<0O THEN R=P*COS(N*®AN) 


POKE 1,58:POKE 2,3 FIGURE 3 


PRINT "(clr)" 

P29 5Q=15/2. 

F=2* 77/250 

FOR I=0 TO 1250 

AN=I*F 

X=(P+Q) *COS( AN)+Q*COS( (P+Q)#AN/Q) 
Y=(P+Q) ®SIN( AN) +Q#SIN( (P+Q) *AN/Q) 
X=INT(X+39.5) :Y2INT(Y+24.5) 

POKE 81,X:POKE 82,Y:A=USR(0) 





1  POKE 1,58:POKE 2,3 

10 PRINT "(clr)" 

20 P=24:Q=9 

22 DT=300 

24 Fs2* 7/DT 

28 FOR I=1 TO 25 

30 DL=P*I/Q-INT(P#I/Q) 

32 IF DL<.00001 GOTO 36 FIGURE 4 
34 NEXT I 

36 PT=I*P/Q 

38 PRINT "(home)"; INT(PT+.5) 

4O FOR J=0 TO I*DT 

50 AN=J*F 

60 X=(P-Q)#COS(AN)+Q*COS((P-Q)*AN/Q) 
70 Y=(P-Q)#*SIN(AN-Q*SIN( (P-Q) *AN/Q) 
80 X=INT(X+39.5) : Y=INT(Y+24.5) 

90 POKE 81,X:POKE 82,Y:A=USR(0) 

100 NEXT J 

110 GET G$:IF G$="" GOTO 110 
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“THANKS FOR THE MEMORIES” 
A PET MACHINE LANGUAGE MEMORY TEST 


Harvey B. Herman 
Chemistry Department 
University of North Carolina at Greensboro 
Greensboro, North Carolina 27412 


Most people have surely heard the old Bob Hope theme song, 
“Thanks for the Memories.” Whenever | hear it, | remind myself 
how much the explosion in personal computing is due to 
inexpensive memory chips. Several years ago | paid about $64.00 
for a 4x16 (64 bits) static RAM by Intel. Today a 1x1024 static 
memory costs less than $2.00 - quite a hefty reduction in the per 
bit price. 


That’s the good news. The bad news is that all electronic parts 
occassionally fail and failures need to be diagnosed and repaired. 
The cheaper memory becomes the more we add and the harder 
and more time consuming it becomes to identify failed 
components. Diagnostic programs are one answer to this problem. 
Recently MICRO (7:25, Oct-Nov, 1978) published a PET memory 
test program written in BASIC. Execution time to test even about 
200 bytes was quite long - about 1000 seconds. Clearly, a much 
faster test is necessary for even the smallest PET computers. If 
external memory is added the need for a much faster test becomes 
even more urgent. 


An obvious way to increase the speed of a program is to write it in 
machine language. BASIC, a higher level of language, is 
notoriously slow especially when it must interpret each statement 
on every encounter. Writing faster machine language programs is 
facilitated with the help of a monitor program. PET owners have 
finally been given a free monitor program as part of their original 
purchase. This program has some nice features but the 
documentation is minimal. (How many times have we heard that 
song.) Important locations and subroutines are either not 
described at all or described sketchally so the program’s usefulness 
to the average user is impaired. 


However, not to worry. | have been experimenting with the 
monitor program by a combination of disassembly and trial and 
error have identified some of the missing links. You might guess 
from the title of this article that the purpose is to describe a fast 
machine language memory test. That is correct, but the other 
unspoken and possibly more important purpose is to teach the 
reader how better to use Commodore’s machine language monitor 
program. 


Table 1 summarizes important locations in Commodore’s monitor. 
It is an expanded version of the table in their manual. For readers 
with access to the PET Gazette’s LOMON program | have also 
included locations in that monitor which, incidentally, includes a 
disassembly in the latest version. 


A large variety of machine language programs, including memory 
test programs, have appeared for other 6502 based systems. Jim 
Butterfield in “The First Book of KIM” (pp. 122-123) described a 
very fast machine language memory test program using a newly 
developed algorithm. | picked this particular KIM program for my 
first try at a PET translation program. Other programs developed 
for KIM (except when specifically hardware dependent) can be 
similarly translated. Our PETs will be more powerful than ever 
before as we can take already developed machine language 
software (the hard part), translate the programs for the PET and 


poke them into memory with the monitor (the easy part). 


An inspection of the original KIM memory test program reveals 
some obvious PET incompatabilities. The KIM program originates 
at location zero and uses several KIM-specific locations (e.g., 1C4F 
as an exit to the KIM monitor). As a first pass we must relocate the 
program, change external jumps and substitute other page 0 
locations. Table 2 shows the changes | made and gives some of my 
reasoning. Some decisions are self evident. For example, the 
second cassette buffer (starting at 033A) is a common place to 
store small PET programs as long as a second cassette is not being 
used. Other changes take advantage of specific features of the PET 
monitor. For example, the program counter (actually locations 22 
and 23 as LOW and HI) is printed out after an exit to the monitor at 
location 0447. While the KIM monitor works similarly, the exit 
point and page zero locations printed are different and must be 
converted. 


The translated program is executed using the CO command with a 
specified address (G 033A). After running the program several 
times, | became convinced it could be improved. Modifying a well 
documented program (as was the original) is, of course, much 
easier than writing one in the first place. The following changes 
were made: 


1. Repeat the program continually until a key is pressed. 
Execution is very fast and one pass is not an adquate test. 


2. Output an asterisk after each pass. It is nice to know the 
program is doing something. 


3. Take the processor out of decimal mode, or hex arithmetic 
will not be done properly. 


4. Input the beginning and ending page locations as a conven- 
ience in the GO step. 


The last two modifications were easy to do before beginning 
execution. However, | occassionally forgot and felt it was better to 
insure it.was done properly rather than to take a chance that the 


- monitor had to be reloaded or BASIC restarted. 
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This version of the memory test program is also run with the GO 
command, with a specified address. The beginning and ending 
page location, separated by commas, are typed after the address 
(G 033A OA,1F). The program cycles until a faulty memory 
location is found which is printed as if it was the program counter 
or until any key is pressed. As advertised it is very fast a few second 
per pass for an 8 K PET (testing pages OA to 1F). A continuing 
outpouring of asterisks is very comforting. 


My colleagues and | have found bad (or slow) memory chips with 
the original or modified test program on both KIM and PET 
computers. Happily, this does not happen very often; my hope is it 
won't happen to you. But if it does you will be prepared if you get 
this program running ahead of time. Good luck! 


033A 
033B 
033E 
0340 
0342 
0345 
0348 
034A 
034D 
034F 
0351 
0354 
0357 


0359 
0358 
035C 
O35E 
0360 
0362 
0364 
0366 
0368 
C36A 
056C 
036E 
0370 
0372 
C373 
C0375 
0377 
C379 
03 7B 
037D 
03 7F 


PET MEMORY TEST 


BY HARVEY B. HERMAN 


FEBRUARY 1979 


BEGIN 
END 
POINTL 
POINTH 
FLAG 
FLIP 
MOD 
PRINT 
GET 
INPUT 
EXIT 
ERROR 
GTBYT 


START 


ABLE 


BAKER 


LCOP 


BIGLP 


PASS 


CLEAR 


ORG 


* Kk Kk KK Kk kK Kk Kk Ok Ok 


LDAIM 
TAY 
OTA 
STA 
LDXIM 
STX 
LDA 
STA 
LDX 
LDA 
EORIM 
STA 
STATY 
INY 
BNE 
INC 
CPX 
BCS 
LDX 
LDA 
STA 
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¢033A 


¢0023 
$0024 
¢0019 
001A 
¢001B 
¢0Q01C 
€001D 
¢FFD2 
¢FFE4 
$F FCF 
$0447 
¢049B 
$0656 


INPUT 
$20 
ABLE 
ERROR 
CTBYT 
BEGIN 
INPUT 
¢2C 
BAKER 
ERROR 
GIBYT 
END 


$00 


POINTL 
FLAG 
¢02 
MOD 
BEGIN 
POINTH 
END 
FLAG 
¢FF 
FLIP 
POINTL 


CLEAR 
POINTH 
POINTH 
CLEAR 
MOD 
BEGIN 
POINTH 


SPACE CHARACTER? 


COMMA ? 


0381 AS 1B FILL LDA FLAG 


0383 CA TeP DE X 

0364 10 04 BPL SKIP 
0386 A2 02 LDXIM $02 
0388 91 19 STAIY POINTL 
3BA C8 SKIP  INY 

Q38B DO Fé BNE TOP 
O38D Eé 1A INC POINTH 
O38F AS 24 LDA END 
0391 C5 1A CMP =POINTH 
0393 BO EC BCS FILL 
0395 AS 23 LDA BEGIN 
0397 85 1A STA  POINTH 
0399 A6é ID LDX MCD 
039B A5 1C POP LDA FLIP 
039D CA DE X 

O39E 10 04 BPL SLIP 
O3AG A2 C2 LDXIM $02 
O3A2 AS 1B LDA =FLAG 
O5A4 D1 19 SLIP CMPIY POINTL 
O3A6 DO 24 BNE OUT 
O5A8 Ce INY 

O5A9 DC FO BNE POP 
C5AB E6 IA INC POINTH 
O5AD A5 24 LDA END 
Q3AF C5 1A CMP POINTH 
0381 BO E& BCS POP 
03B3 Cé 1D DEC MOD 
O03B5 10 AD BPL PASS 
O3B7 AS 1B LDA FLAG 
O5B9 49 FF EORIM $FF 
O5BB 30 Al BMI BIGLP 
O3BD 84 19 STY POINTL 
OSBF AY 2A LDAIM $2A ASTERISK CHARACTER * 
0301 20 D2 FF JSR PRINT 
0304 20 £4 FF JSR GET 
0307 FO 90 BEQ LOOP 
C5C9 4€ 47 04 JMP EXIT 


O35CC 84 19 OUT STY  POINTL 
OSCE 4€ 47 04 JMP EXIT 


Program Notes 


GTBYT Change to $0658 for LOMON 
C33A Clear decimal mode to insure arithmetic correct 
O355E Compare with space character 


0Q33B - 0358 Input from screen: space, byte (2 characters), comma and byte. 
Store byte in beain and end page locations. 
0359 - G3BE Memory test program proper. Original author: Jim Butterfield. 
O3BF - O3CB Print *, check for key press: 
no - repeat test 
yes - exit to monitor and print register buffer 
Q3CC - 03D0 Abnormal exit to monitor. Program counter has address of fault. 
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MONITOR LOCATIONS 


Table 1 

Start of monitor O40F 
Exit to monitor O47 
Break vector LOW 021B Normally 27 
Break vector HI 021C Normally 04 
Machine register storage buffer: 

Program counter LOW | 0019 

Program counter HI OO1A The registers are initialized to the 


Status register 001B value in these locations after the G 
Accumulator O001C command. After the break instruction 
X-index register 001D (and break vector set to 0427) these 
Y-index register 0O1E locations will contain the final 
Stack pointer OO1F values of the registers. 
Operating System calls: 
Output byte (from A) FFD2 
Input byte (left in A) FFCF (loc 260: 0 keyboard, 1 screen) 
Get byte FFE4 (A-0 no key depressed otherwide 
A-j character) 
MMODOR LOMON (PET Gazette) 
Output CR snr S O4F2 
Output space 063A 063B 
Output byte as 2 hex 0613 0613 
Input byte as 2 hex 065E 0660 
ASCII to hex (from A) 0685 0687 
Output? and wait for new 
command O49B O49B 
Input 2 bytes as 4 hex O64F 0651 


(LOW in loc. 11, HI in 12) 


KIM~PET EQUIVALENCES FOR THE MEMORY TEST PROGRAM 


Table 2 

SIM PEL NOTES. 
BEGIN 0000 0023 first two unused zero 
END 0001 0024 page locations 
POINTL OOFA 0019 printed as PC location 
POINTH OOFB OO1A on exit 
FLAG 0070 001B printed as SR on exit 
FLIP 0071 001C printed as A on exit 
MOD 0072 001D printed as X on exit 
EXIT 1LCHF O47 exit to monitor-print registers 
START 0002 033A start of second cassette 


buffer-well protected if 
device not used. 
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LIFESAVER 
by J. Stelly 
10918 Dunvegan Way 
Houston, TX 77013 


Is LIFE passing you by; does it progress so quickly than there is 
little time to enjoy it? Well, fear not-the LIFESAVER is here. 
Though time marches on, now you are in control. If you got “LIFE 
For Your PET” from Dr. Frank H. Covitz (The Best of Micro, p.65), 
LIFE moves along at a pretty good clip. LIFESAVER is a BASIC 
program that complements and provides some enhancements to 
Dr. Covitz machine language routines. 


LIFESAVER provides a convenient grid for setting up cellular 
patterns, permits saving and loading of patterns on the built in 
cassette unit, and gives complete control of the time interval 
between generations. You may even single step through the LIFE 
sequences. 


Commodore is supposedly mailing all owners of early model PET 
units the TIM monitor on cassette, so | will assume its availability 
in this discussion. It ain’t the best monitor in the world, but it does 
allow you to load machine language programs directly from the 
cassette without any special loader routines. This does not exclude 
other methods the reader may have at his (or her) disposal if TIM is 
not available. 


A single modification to Dr. Covitz program is required before it 
can be used with LIFESAVER. Location 191D (16) should be 
changed to read: 
191D 60 RTS 

When this change is made the program may be entered at 
190A(16) e.g. SYS(6410). If the TIM monitor is used, simply do a 
hex dump of the machine language listing and save the program 
on tape using the instructions given in the manual. 


Before loading LIFE (Dr. Covitz program) or LIFESAVER (by yours 
truly) from cassette, | recommend the following command be 


executed: 
POKE 134,0:POKE 135,24 


This lowers the BASIC boundary and prevents conflicts between 
the two programs. The regular BASIC limit can later be reinstated 
by POKE 135,32. It is also a good idea to load LIFE before 
LIFESAVER is loaded. This prevents the data pointer from getting 
initialized to the wrong location. 


It may be possible to eliminate lines 3015 and 3035 from the BASIC 
listing, if you have a relatively late model PET. These lines are 
necessary for the older units that have a problem with writing file 
headers and cassette motor start/stop control. My unit was 
delivered in Sept. ‘78 and | was able to eliminate these lines. 


Assuming that both LIFE and LIFESAVER have successfully been 
loaded, you may begin entering your favorite cell patterns. Please 
refer to Dialog 1 (human inputs are underlined) to see how this is 
done. After the grid is printed simply press the ‘RETURN’ key and 
enter your pattern anywhere in the grid area using the cursor keys 
and the dot (e) symbol above the Q key. -After you’ve created the 
desired pattern press the ‘HOME’ key and the ‘RETURN’ key in 


succession. This neat little trick returns control to the LIFESAVER 
routine without having to explicitly key in the command ‘GOTO 
1000’. After the PET has saved the pattern internally the user then 
has the options to save it on tape, have the computer generate 
LIFE patterns as described in Dr. Covitz article, or scrap it and 
input a new pattern. 


The options are relisted after the execution of any LIFESAVER 
command. Examples on exercising the different options are given 
in the remaining dialogs. 


LIFESAVER should relieve the user from the tedium of having to 
manually reenter a LIFE pattern every time it is desired to run it. It 
should also encourage the user to experiment with various LIFE 
forms, some of which are quite dazzling. 
DIALOG 1 

RUN 

LIFE 

PLEASE CHOOSE AN OPTION 


1. CREATE A PATTERN 

2. RUN LIFE GENERATOR 

3. LOAD A PATTERN FROM CASSETTE 
4. SAVE A PATTERN ON CASSETTE 


OPTION NUMBER ? 1 (RETURN) 
(SCREEN CLEARS, THEN ...) 
GOTO 1000 ? 


(At this point the user hits the 
RETURN key and proceeds to input a 
cell pattern.) 





(With the desired pattern on the CRT 
the user presses the HOME and RETURN 
keys to resume program execution.) 


STORING CELL PATTERN 


(After a slight delay the computer 
again responds with the option list.) 
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DIALOG 2 
LIFE 


(Option List) 


OPTION NUMBER ? 2 (RETURN) 
(Screen clears ...) 


HOW MANY GENERATIONS ? 7 
DEVELOPMENT RATE 

O:SINGLE STEP VIA (G) KEY 
1-99: INTERMEDIATE RATES 
100:MAX (255 GENERATION LIMIT) 


RATE ? 75 


(The computer proceeds to display 
generations sequentially at the 
specified rate. The larger the 
numerical value of the rate the 
faster the generations are produced. 
A rate of 0 meanc that only one 
generation is produced at a time, 
The G key must be pressed to obtain 
subsequent generations.) 


LISTING 


1 REM LIFESAVER 


DIALOG 3 
LIFE 


e 


(Option list) 


OPTION NUMBER ? 4 
(Screen clears ...) 


HOW MANY 
PATTERN NAME ? CHESIRECAT (RETURN) 


(Pattern is saved and the option 
list is printed.) 


NOTE: In the following BASIC listing 
the lower case abbreviations stand for 
cursor control keys and have the 
following meaning: 


clr = clear screen 
home = home up 

cd = cursor down 

S = space key 


2 REM BY JAMES W. STELLY 
3 REM POKE 135,24 BEFORE USING 


100 DIM A$(25) 


160 
170 


190 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
° 300 
310 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"CIrLIFE" : PRINT 

"PLEASE CHOOSE AN OPTION:":PRINT 
"1. CREATE A PATTERN" 

"2. RUN LIFE GENERATOR" 

"3. LOAD A PATTERN FROM CASSETTE" 
"4, SAVE PATTERN ON CASSETTE" 
"OPTION NUMBER" :N 


9 


ON N GOSUB 200,2000, 4000, 3000 
GOTO 110 


CREATE GRID FOR PATTERN INPUT 


PRINT 


FOR I= 


PRINT 
PRINT 
PRINT 
PRINT 


NEXT I 


PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"clr cd's 

1 TO 5 

| ciate caieies siete eaten eieieies cecbeied nies winded site | 
ad ft f I [ I ! t i J 
ny I l i i 1 | j | i 


te 
° 


ete wheieiel wimieet wieied ebeieied ebebel ceebeiet cbebeded nies | 
nf ! i j { { J f { f 
rs re 
mob bt 
"homeGOTO 1000"; A$ 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 


2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2075 
2080 


2100 
2110 
2120 
2130 
2140 
2150 


2160 
2170 
2180 
2190 
220 


3000 
3010 
3015 
3020 
3030 
3035 
3040 
3050 


4000 
4010 
4020 
4030 


STORE PATTERN 


PRINT “homeSTORING CELL PATTERN" 

FOR I=1 TO 24:A$(1I)="":NEXT I 

FOR I=1 TO 24:FOR J=1 TO 39 

IF PEEK(32767+J+(I#40))= 81 THEN A$(I)=A$(I)+"@":GOTO 1050 
A$(I)=A$(I)+"=" 

NEXT J:NEXT I 

RETURN 


ACCESS LIFE GENERATOR 


INPUT “clrHOW MANY GENERATIONS" ;G 

PRINT "cdDEVELOPEMENT RATE:":PRINT 

PRINT "0;SINGLE STEP VIA (G) KEY" 

PRINT "1-99: INTERMEDIATE RATES" 

PRINT "100:MAX (255 GENERATIONS LIMIT)" 

INPUT "cdRATE";S 

PRINT “clrGEN 0" 

FOR I=1 TO 23:PRINT A$(I): NEXT I 

PRINT A$(I);:FOR I=1 TO 2000:NEXT I 

IF S=100 THEN POKE 6483,256-G:SYS(6410):GOTO 2140 


INTERMEDIATE RATES 


POKE 6483,255:IF S=0 GOTO 2160 
S=100-S:FOR I=1 TO G 
SYS(6410):PRINT "homeGEN" ; I 
FOR J=1 TO S*30:NEXT J:NEXT I 
GET A$:IF A$<>"X" GOTO 2140 
RETURN 


SINGLE STEP 


G=1 

SYS(6410):PRINT "homeGEN";G 
GET A$: IF A$="X" THEN RETURN 
IF A$="G" THEN G=G+1: GOTO 2170 
GOTO 2180 


SAVE PATTERN 


INPUT "clrPATTERN NAME": A$ 
OPEN 1,1,1,A$ 

POKE 243,122:POKE 244,2 
FOR I=1 TO 24 
PRINT#1,A$(I) 

POKE 59411,53 

NEXT I 

CLOSE 1:RETURN 


LOAD PATTERN 


INPUT "clrPATTERN NAME"; A$ 

OPEN 1,1,0,A$ 

FOR I=1 TO 24: INPUT#1,A$(I):NEXT I 
CLOSE 1:RETURN 
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THE ULTIMATE PET RENUMBER 
Don Rindsberg 
The Bit Stop 
Box 973 
Mobile, Alabama 36601 


This article can be of help to the BASIC programmer in providing a 
fast, fool-proof renumbering system, but it also includes details on 
how to use the PET BASIC interpreter’s own machine-language 
routines to do some useful chores. 

Renumbering programs written in BASIC, such as Jim Butterfield’s 
(see MICRO Dec 78 - Jan 79) are very slow in renumbering long 
programs, and because BASIC is cumbersome in performing such 
routine chores, the machine-language approach has some major 
advantages. This routine will renumber a 300-line program in 
around 20 seconds, as compared to more than 300 seconds for 
Jim’s BASIC version. Further, Jim is forced to duck the issue of 
providing space for extra-digit line numbers, whereas by calling 
BASIC’s line insertion routine, this program provides enough space 
for five digits for every GOTO, GOSUB, etc. 

The entire program for renumbering is given in hexadecimal in 
listing 1. More later about how to enter it into your machine. With 
your BASIC program and the renumber routine in RAM, press 
SYS8181 (by coincidence, the name of the program) and you will 
either get a message of reassurance that all has gone well, or will 
get an error message, such as “line too long”. In no case will the 
program bomb, because this is a two-pass program; during the first 
pass, nothing is done to the Basic text, other than making sure 
there is enough space for five-digit line numbers. If any problem 
exists, the BASIC text is unchanged. 


DEVELOPING THE PROGRAM 

Commodore made it a formidable task to decipher the code of 
BASIC sufficiently to be able to make patches for a short renumber 
system. The first obstacle is that the PEEK statement is disabled for 
the area of memory where BASIC resides. But, by sleight-of-hand, a 
little PUNCHing and POKEing and addition of a simple output port 
on PET’s memory-expansion connector, the PET disgorged the 
contents of its ROMs into my homebrew machine and onto a disk; 
now, with the capability of having the programs in RAM, where 
breaks could be inserted for diagnosis, the job became a little 
easier. 

Programming a renumber routine is made tedious by the fact that, 
in the BASIC text, the line numbers following the GOTO tokens are 
coded in ASCII, whereas the line numbers at the beginning of a 
line of text are coded as two-byte hex numbers. Fortunately, the 
BASIC interpreter has rountines built in to do these conversions 
back and forth between ASCII and hex. The locations of these and 
other routines called by this program are given in TABLE 1. 
Another problem encountered was locating some page zero 
registers, essential to 6502 programming, which are not altered by 
the BASIC itself. In some cases, | use space in the line buffer at 
000A-0059, but this cannot be done in the section of the Program 
which uses the line buffer for its original purpose, i.e., inserting a 
line in its proper place in the BASIC text. 

This program uses very little RAM, since no tables are created. 


PROGRAM OPERATION 
The program first sets or clears a flag, depending upon entry point 
(DCM 8181 or 8184), since entry point determines whether the 


renumber job is standard or custom. It then checks to see if 
sufficient memory exists to allow for insertion of spaces for as 
many as five digits for GOTO line numbers. An error message (see 
TABLE 2) is generated if there is less than one page available for 
this enlargement of the program. Then, each line of text is moved 
into the line buffer, and if aGOTO, GOSUB, or THEN (followed by 
a number) is present, spaces are inserted and the expanded line is 
inserted by BASIC’s own line-insertion routine into the text area, 
just as though you retyped the line on the keyboard. Any lines too 
long for this expansion produce an error message before any harm 
is done to the program. BASIC’s own error routine is called to print 
these messages! The “TOO LONG” message is a shortened version 
of “STRING TOO LONG” used by BASIC. 


In the text, all statements are compressed into single-byte tokens, 
which | have listed for your reference in TABLE 3. For example, 
GOSUB is hex 8D, THEN is A7, etc. This program searches out all 
the 89, 8D and A7 tokens. Getting the proper ASCII numbers after 
these tokens requires conversion of the ASCII to hexadecimal and 
searching for a matching line number in the text area. If no match 
is found, the guy evidently had a GOTO pointing to a non-existent 
line number, so we flag this in the text by an opening parenthesis, 
such as: 


COTO( 
GOSUB( :X=Xt1 
IF A=B THEN( 


ON X GOTO 1234,( —_,5678,9987 


When the progra is listed or run, the need for correction is obvious, 
While we are searching for a matching line number, we keep track 
of the new line number which corresponds to the current position 
in the text, so that when the match is found, the new line number 
can be converted to ASCII and placed directly into the text. 
The actual resequencing process which follows is an anticlimax, 
because it requires so little coding (1E16-1E3E). When the entire 
renumbering job is done, we jump back to BASIC’s warm start 
location. 


USING THE PROGRAM 

If you would like to renumber your program with the standard 
Starting line number 100 and increment by 10, simply type 
SYS8181, which directs the program to hex address 1FF5. If you 
would like to choose a different starting line number or increment, 
POKE the desired values at the addresses shown in LISTING 2, and 
type SYS8184 to enter the program at 1FF8. If your BASIC program 
is long, it may take 3-4 seconds to complete the renumbering job. 
After renumbering, running the program will generally write over 
the renumber code, since it occupies the same space as some 
BASIC variables. The only precaution to be taken in renumbering 
is to avoid line numbers which exceed PET’s limit of 63999. 
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ROUTINE ENTRY POINT (HFX) 


C359 


1F00 


CCA4 


DB1B 


D6éD0 


DCAF 


C38B 


CA27 


DC9F 


FUNCTION AND IMPLEMENTATION 


Print an error message from the message table. Enter with X 
containing the location of the message relative to C190. Message 
terminator is ASCII having bit 7 on. 


A duplicate of the original BASIC line insertion routine located at 
C3B4, except for the exit jump. Enter with the line assembled in the 
line buffer OOOA-0059 with OO as line terminator. Also, the 
character count must be in 005C, and the line number (hex) at 
0008/9. 


Evaluate an expression whose beginning address is in 00C9/CA. We 
use this sub to convert from ASCII to binary, with the result 


appearing in the floating accumulator OOBOT. 


Convert fixed number in 00B1/2 to floating number. Enter with 
X=90 and carry set. 


Convert binary value, such as line number, in floating accumulator 
to two-byte fixed number and place in 0008/9. 


Convert floating number at OOBOt to ASCII and place in a string 
starting at 0101, preceded by a space or minus sign at 0100 and 
terminated by 00. 

BASIC warm start. Prints READY. 


Print message. Enter with ADH in Y, ADL in A. Message is ASCII 


string enough with 00. 


Print the decimal integer whose hex value is in microprocessor 
registers A and X, for example, a line number. 


TABLE 1- BASIC ROUTINES USED 


MESSAGE 


CHECK FOR GOTO( ETC 


120 
? TOO LONG ERROR 


? OUT OF MEMORY ERROR 
? SYNTAX ERROR 

GOTO( 

GOSUB( 


ON X GOTO( 
IF A=B THEN( 


INTERPRETATION 


Successful renumbering. 


Line 120 is too long to renumber. Break into two or more lines, and 


renumber again. 


Program too long to renumber. 


Attempt to RUN program with GOTO( remaining in program, or 


attempt to renumber with one of these in program text. 


The opening parenthesis in the text represents attempt to 


reference a non-existent line number. 


Note: Lines of the following form are likely to cause a TOO LONG error: 


100 ON X GOSUB 1,2,3,4,5,6,7,8,9, 10, 11,12 


TABLE 2 - MESSAGES 
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RENUMB ORG $1D90 
DON RINDSBERG 
(C) 1978 NAIL. 


(& SIGN MEANS PLUS) 


EXTERNAL ROUTINES 


INSERT . $1F00 INSERT A LINE INTO TEXT 
MESSG . $1FCA DONE MESSAGE 
TEMPORARIES 
BUFF . $9008 LINE BUFFER LOCATION 
POINT . $2019 TEMP LINE BUFF POINTER 
POINTX . $2@)A TEMP POINTER 
LINCNT .. $@a5C NO. CHAR. IN LINE 
PTRSO . $207A ORIGINAL POINTERS 
PTRS . $Q@6A WORKING POINTERS 
FLAG . $@@69 FLAG THE GOTOS 
BUFPTR . $QQ6E LINE BUFF POINTER PAGE. ZERO 
COUNT . $Q006F COUNTER 
STARTC . $22DB CUSTOM STARTING LINE NO. 
INTC $20DD CUSTOM INTERVAL 
CUSTOM . $Q@DE FLAG CUSTOM JOB 
BASIC PARAMETERS 
FACC , $9@B2 BASIC FLOATING ACCUM 
BASICP , $@@C9 BASIC POINTER 
BERROR . $0359. BASIC ERROR ROUTINE 
WARM. $C38B BASIC WARM START 
PRINT . $CA27 BASIC PRINT ROUTINE 
EVAL . $CCA4 EXPRESSION EVALUATOR 
FIX ° $D6D8 CONVERT TO FIXED DP 
FLOAT . $DBiB CONVERT FIXED NMBR TO FLOAT 
PNUMBR . $DC9F BASIC PRINT NUMBER 
ASCII . $DCAF CONVERT NMBR TO ASCII AT $0100 
MAINLINE 
1D@@ aS 7D START LDA PTRSO &@3 GET END TEXT ADH 
14D@2 C9 1B CMPIM $1B ENOUGH ROOM TO EXPAND? 
1D8& 90 05 BCC SPACE 
1D06 A2 52 BOMB LDXIM $52 OUT OF MEMORY 
iD@s aC FC 1EF JMP ERROR 
{D@B 20 BD iE SPACE JSR COPY MAKE CC TEXT POINTERS 
4D0E 20 3F 1E NEXT JSR  DNTST ARE WE DONE THIS SECTION? 
1D11 FO 2B BEQ RENUM 
1D13 A2 a8 LDXIM $08 LINE BUFFER START 
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41D15 
1D17 
1D19 


1D1B Co 


1D4D 
1DiF 
1D24 
4D23 
{D24 
1D25 
1D27 
1D2A 
spac 
1D2E 
4D2F 
{D341 
1D33 
1D35 
{038 
1D3B 


1D3E 
1D44 
1D44 
1D46 
4D49 
yDac 
1D4E 
iDaF 
4D51 
4D53 
1D56 
1D59 
1D5B 
1IDSD 
1D5F 
1Dé61 
1D63 
1D65 
1D66 
1D68 
ADGA 
sD6C 
ID6F 
1D714 
1D72 
4D73 
1D75 


1D76 © 


4D77 
iD79 
1D78B 
iD7E 
1D7F 
1D82 


1E 


iF 
1E 
aD 


LE 
iE 


1E 
iF 


1E 
iD 


1E 


\F 


cc 
Dé 


GETBYT 


SKIPA 


TERM 


SKIPB 


RENUM 
NEXTR 


NOTDON 


SCAN 
SCANA 
SCANX 


GOTEST 


THEN 


GOTO 


LDYIM 
LDALY 
STAZX 
CPYIM 
BCC 
CMPIM 
BEQ 
INY 
INX 
BNE 
JSR 
LDAZ 
BNE 
SEC 
LDA 
SBCIM 
STA 
JMP 
JSR 
JMP 


JSR 
JSR 
BNE 
JMP 
JSR 
LDYIM 
INY 
LDALY 
BNE 
JSR 
JMP 
CMPIM 
BEQ 
CMPIM 
BEQ 
CMPIM 
BNE 
INY 
LDALY 
CMPIM 
BEQ 
JSR 
BCS 
DEY 
INY 
STY 
TYA 
CLC 
ADC 
STA 
JSR 
NOP 
JSR 
JSR 


$92 
PTRS 
$20 
$04 
SKIPA 
$06 
TERM 


GETBYT 


EDIT 
FLAG 
SKIPB 


BUFPTR 


$05 


LINCNT 
INSERT 
UPDATE 


NEXT 


COPY 
DNTIST 


NOTDON 


RESEQ 


STRTLN 


$03 
PTRS 


GOTEST 
UPDATE 


NEXTR 
$89 
GOTO 
$8D 
GOTO 
$SA7 
SCANA 


PTRS 
$208 
THEN 


TSTDGT 
GOTEST 


POINT 


PTRS 


BASICP 


PATCH 


EVAL 
FIX 
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POINT TO LINE NMBR IN TEXT 
GET BYTE FROM TEXT 

STORE IN LINE BUFFER 

ZERO HERE NOT TERMINATOR 


GOT THE TERMINATOR 
FORCED BRANCH 

EDIT ONE LINE 

SKIP IF NO GOS FLAGGED 
CORRECT BYTE CCUNT 
NEED CHAR COUNT 


BUT RETURN TO NEXT LINE 
POINT TO NEXT LINE 


THE POINTERS 
ARE WE DONE THIS PORTION? 


GET STARTING LINE NMBR 
POINT TO TEXT~1 

GET A BYTE 

BRANCH IF NOT TERMINATOR 
GO TO NEXT LINE 

GOT A GOTO? 

GOT A GOSUB? 

GOT A THEN? 

POINT TO NEXT 

IGNORE SPACES 


TEST FOR NUMBER 


SAVE A MOMENT 


POINT TO ASCII NMBRS 
BUG FIX 


CALL BASIC EVALUATOR 
AND BASIC FIX ROUTINE 


1D85 
1D87 
1DE9 
iDSB 
1D8D 
1DSF 
1D91 
1D92 
1D94 
1D96 
1D98 
1D9B 
4D9D 
1DAG 
SDAL 
1DA4 
{DAG 
1DAS 
JDAA 
1DAC 
1DAE 
IDAF 
1DB4 
1DB3 
{DB5 
1DB7 
1DB9 
1DBB 
{DBD 
{DBF 
1DCo 
1DC3 
1DC6 
1DC8 


1DCA . 


{DCD 
1DCF 
4DD4 
1DD2 
1DD3 
$DD5 
4DD7 
1DD9 
1DDB 
1DDC 
LDDD 
1DDF 
1DEG 
{DE2 
1DE3 
1DE5 
{DES 
1DEA 
{DEC 
1DEE 
1DF 


81 
1 
91 


DB 
DC 


80 


SEARCH LDA 


SRCHLP 


NOTEND 


MATCH 


MVASC 
LOOPA 


BLANKS 


COMMX 
COMMA 


STA 
LDA 
STA 
LDYIM 


BN 
NOTNUM CMPIM 


PTRSO 


POINTX 


PTRSO 


POINTX 


$80 


POINTX 


POINTX 
NOTEND 


POINTX 


BUFF 
NOMAT 
BUFF 
FACC 
BUFF 
FACC 


1 $90 


FLOAT 
ASCII 
$FB 


POINT 
$OO06 


BLANKS 


PTRS 


LOOPA 
COMMA 
$29 
PTRS 


BLANKS 


COMMA 
PTRS 


TSTDGT 
NOTNUM 


$28 
PTRS 
COMMX 
$20 
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SETUP SEARCH POINTERS 


£01 
&@j 


GET NEXT BYTE 


TEST FOR TWO ZERO BYTES 
ZEROES MARK EOT 

GET A SPACE 

ASCII WORKSPACE 

GET OPEN PAREN 


TERMINATE WITH ZERO 
FORCED BRANCH 


GET LINE NO. LOW 
MATCH? 


GET LINE NO. HIGH 
&@1 


$98 GET CURRENT LINE NMBR 
&@2 
&@9 SECOND BYTE 


&@1 
SETUP FOR FLOAT 


TO $0191 PLUS 
MINUS 5 


TERMINATOR ZERO 


GET SPACE 
STORE IT 


GET NEXT BYTE 
TEST FOR NUMBER 


SPACE 
STORE IT 
FORCED 
SPACE? 
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iDF2 FO EE BEQ COMMX 

1DFa C9 2C CMPIM $2C = COMMAT 

iDFS6 98 PHP DEFER TEST 

IDF7 20 AE 1F JSR  STRILN GET STARTING LINE NMBR 
IDFA 28 PLP NOW TEST 

ADFB DQ 03 BNE JSCANX NOT COMMA 

SDFD 4C 72 1D JMP GOTO GOT A COMMA 

1E90 4C 4F 1D JSCANX JMP SCANX 

1E93 20 EE 1E NOMAT JSR  INCLIN INCR NEW LINE NMBR 
JEG6 AG GG LDYIM $02 

1E@8 B1 4A LDAIY POINTX GET NEXT LINE ADDRESS 
{EGA 48 PHA 

1EOB C8 INY 

JEGC Bt 4A LDALY POINTX 

1EGE 85 1B STA  POINTX 891 

1E10 68 PLA 

4E11 85 4A STA POINTX 

$E13 4C BD 1D JMP  SRCHLP BACK TO SEARCH AGAIN 
4E16 20 AE 1F RESEQ JSR  STRTLN SETUP STARTING LINE 
4E19 20 BD 1E JSR COPY COPY THE POINTERS 
JEiC 20 3F 1E LOOPR JSR  DNTST DONE? 

{ESF FO 13 BEQ WINDUP 

4E24 AQ 92 LDYIM $62 POINT TO LINE NMBR 
$E23 A5 10 LDA BUFF &@8 GET NEW ONE 

1E25 91 6A STALY PTRS STORE IT 

4E27 C8 INY 

{E28 AS 41 LDA BUFF 4&@9 

{E2A 91 6A STALY PTRS 

1E2C 26 C7 JE JSR UPDATE ADVANCE TO NEXT LINE 
{EQF 20 EE iE JSR INCLIN INCREMENT LINE NMBR 
1E32 90 ES BCC LOOPR FORCED 

1E34 AG iF WINDUP LDYIM MESSG /10¢ 

1E36 AS CA LDAIM MESSG 

JE38 20 27 CA JSR PRINT END MESSAGE 

1E3B 58 CLI | ALLOW KEYPRESSES 
JE3C AC 8B C3 JMP WARM BACK TO BASIC 

1E3F AD 20 DNTST LDYIM $90 

{Eai Bi GA LDAIY PTRS GET NEXT BYTE 

JE43 C8 INY ADVANCE TO NEXT 

1E44 11 6A ORALY PTRS OR WITH LAST TO FIND 9000 
1E46 60 RTS 

1E47 A2 @9 EDIT LDXIM BUFF 291 

1E49 86 GE STX BUFPTR 

1E4B 86 69 STX FLAG SET FLAG 

1E4D E6 6E EDITX INC  BUFPTR 

1E4F AG 6E LDX  BUFPTR 

1E51 BS GO LDAZX $06 

1E53 FO 74 BEQ RTS 

1E55 C9 89 EDITY CMPIM $89 GOTO? 

4E57 FO 19 BEQ SPACES 


1E59 
1E5B 
1E5D 
1E5F 
1E61 
1E63 
1E65 
1E67 
1E69 
1EGB 
1EGE 
1£79 
1E72 
1E74 
{E75 
1E77 
E79 
1E7B 
1E7D 
1E7F 
1E81 
1ES4 


1E86 | 


{E89 
{ESB 
1ESD 
1ESF 
1E94 
{E93 
1E95 
$E97 
1E99 
{E9B 
1ESE 
1EAG 
1EA3 
1EA5 
{EAT 
1EA9 
{EAB 
{EAD 
{EAF 
1EBi 
SEBS 
{EBS 
1EB7 
1EB9 
SEBB 


SEBD 
1EBF 
4EC1 


1EC3 


4ECK 
1ECE 


cS 
re 


DC 
iE 


1E 


THENN 


SPACES 
SPACEX 


OKAY 
LOOP 


COMMAS 


FINDT 


TEST 


COPY 
LP 


RTS 


LDXIM 
LDAZX 
STAZX 
DEX 
BNE 
RTS 


$8D 


SPACES 
4 $A7 


EDITX 


BUFPTR 
BUFPTR 


$00 
$29 
THENN 


TSTDGT 


EDITY 


BUFPTR 


BUFF 
$89 


141 


GOSUB? 

THEN? 

BACK. FOR MORE 
BYTE AFTER THEN 
IGNORE SPACES 


1S IT NUMBER? 
IF NOT, GO BACK 


&@1 TEXT-1 

LOOK FOR TERMINATOR 
LINE TOO LONG? 

&@1 

GET BAD LINE NMBR 
PRINT IT 

TOO LONG MESSG 


DIGITS PLUS ONE 


TEST FOR SPACES 
TEST FOR NUMBER 


MAKE ROOM FOR ONE DIGIT 
FORCED BRANCH 


WE WERE HERE 
FIND TERMINATOR 
SPACE? 


FORCED 
COMMA? 


COPY 4 BYTES 
COPY POINTERS 


1EC7 
1EC9 
4ECB 
SECC 
1ECD 
{ECF 
1ED1 
{ED2 
1EDA 


1ED5 
AEDT 
IEDs 
SEDA 
SEDC 
1EDE 
1EEO 
1EE2 
1EE4 


TEES 
LEE? 
1EE9 
1EEB 
1EEC 
1EED 


1EEE 
1EEF 
JEFFS 
1EF3 
1EFS5 
LEFT 
1EFS 
JEFB 


1EFC 
1EFD 


IFAE 


1FAE 
1FBO 
1FB2 
1FB4 
iFB6 
1 FBS 
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C3 


UPDATE LDYIM 


UPONE 
LOOPU 


TSTDGT 


SET 


INCLIN 


ERROR 


STRTLN 


LDAILY 
PHA 
INY 
LDALY 
STA 
PLA 
STA 
RTS 


LDXIM 
DEX 
LDAZX 
STAZX 
CPX 
BNE 


LDAIM § 


STAZX 
RTS 


oeele 


ORG 


LBDAIM 


$06 
PTRS 


PTRS 
PTRS 


PTRS 


BUFF 
BUFF 
BUFF 
BUFF 


$80 


BUFF 


BERROR 


SIFAE 


$64 
BUFF 
$30 
BUFF 
SOA 


GET LINK ADL 
HOLD ON STACK 


GET LINK ADH 
&@1 STORE LINK ADH 


STORE LINK ADL 


&51 END BUFFER 


GET A BYTE 
MOVE UP ONE 


INSERT SPACE 


WITH CARRY CLEAR 
CARRY SET IF NON-NMBR 


808 

LOA 

£08 

£09 

ADD INTERVAL 

&@9 TO CURRENT LINE 


ALLOW KEYPRESS 
BASIC ERROR PROCESSOR 


DEFAULT 106 
&08 
HIGH ORDER 
&Q09 
INTERVAL 186 


CUSTOM TEST FOR CUSTOM 
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iF SO 
1FO3 
1FO5 
1F 07 
1FOS 
1FOB 
1FoD 
1FOF 
iF 33 
iF 13 
1Fi5 


1Fi6 | 


AFis8 
iFi9 
iFiB 
iFiD 
iFiF 
1F21 
1F23 
1F25 
1F27 
1F28 
4F29 
1F2B 
1F2D 
1F2E 
1F32 
1F31 
1F33 
1F34 
1F36 


IFBA 10 9A BPL SKIPL 
IFBC AG DD LDX INTC CUSTOM INTERVAL 
IFBE AS DB LDA STARTC CUSTOM START 
iFCOo 85 10 STA BUFF 8908 
1FC2 A5 DC LDA STARTC &@1 
1FC4 85 i1 STA BUFF 269 
1FC6 86 12 SKIPL STX BUFF &@A 
14FC8 60 RTS 
1FCS EA NOP 
FINAL MESSAGE $1FCA THROUGH $1FEC 
*CHECK FOR GOTOC ETC* 
{FED PATCH ORG $1FED 
1FED AS 6B LDA PTRS 491 
IFEF 69 08 ADCIM $20 
1FF1 85 CA STA BASICP &@1 
1FF3 6¢ RTS 
1FF4 EA NOP 
{FF5 18 ENTRY CLC CLEAR FOR STANDARD 
1FFS 98 1 BCC 8 ALL 
1FFS 38 ENTRYA SEC SET FOR CUSTOM 
1FF9 78 ALL SEI DISABLE KEYS 
1FFA €6 DE RORZ CUSTOM FLAG IN BIT 7 
4FFC 4C 96 1D JMP START 
INSERT ORG $1F@@ 
DUPLICATE OF BASIC INSERT ROUTINE 
EXCEPT FOR EXIT JUMP 
22 C5 JSR $C522 1F38 Cé 72 DECZ 
Ak BCC _sINSC. F3A 18 CLC 
01 LDYIM $01 1F3B Bi 71 INSB LDAIY 
AE LDAIY SAE iF3D 91 73 STALY 
72 STAZ $72 iF3F C8 INY 
7C LDAZ $7C 1F4@ DO FS BNE 
71 STAZ $714 1F42 E€ 72 INCZ 
AF LDAZ $AF iF44 E6 74 INCZ 
74 STAZ $74 1F46 CA DEX 
AE LDAZ $AE 1F47 DO F2 BNE 
DEY 1F4S AS OA INSC LDAZ 
AE SBCIY $AE 1F4B FQ 2F BEQ 
| CLC 4F4D AS 86 LDAZ 
7C ADCZ $7C¢ 1F4F A& 87 LDY2 
7C STAZ $7C 1F51 85 82 STAZ 
73 STAZ $73 1F53 84 83 STYZ 
7D LDAZ $7D 1F55 AS 7C LDAZ 
FF ADCIM $FF iF57 85 AS STA2 
7D STAZ $7D IF59 65 5C ADCZ 
AF SBCZ $AF 1F5B 85 A7 STA2 
TAX iF5D A& 7D LDYZ 
SEC iFSF S4 AA STYZ 
AE LDAZ $AE 1F61 90 81 BCC 
7C SBCZ $7C iFeés Cg INY 
TAY iF6é4 84 AS INSD STYZ 
03 BCS  INSA 1F66é 20 DA C2 JSR 
INX 1F69 AS 89 LDAZ 
7h DECZ $74 IF6B Aq 8} LDY2 
INSA CLC iF6D 85 7¢ STA2 
71 ADCZ $71 IFGF &4& 7D STYZ 
Q3 BCC INSB 1F71 A4& 5C LDYZ 
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$72 


$73 
$75 


INSB 
$72 
$74 


INSB 
SOA 
INSF 
$86 
$87 
$82 
$83 
$7C 
$A9 
$5C 
$A7 
$7D 
SAA 
INSD 


$A 
$C2DA 
$80 
$8] 
$7C 
$7D 
$5C 


LOCATION 
HEX DECIMAL 


0ODB 219 
0ODC 220 
O0ODD 221 


VALUE TO BE POKED 


Example:.POKE 219,232 


POKE 220,3 
POKE 221,50 


This will give a starting line number of 3 x 256 t 232 = 1000, and 


Increment desired (1-255) 


following lines will be incremented by 50. 


LISTING 2 - NON-STANDARD LINE RENUMBER 


STATEMENT 


END 
FOR 
NEXT 
DATA ~~ 
INPUT# 
INPUT 
DIM 
READ 
LET 
GOTO 
RUN 

IF 
RESTORE 


TOKENS (shorthand used in BASIC text) 


TOKEN 


80 
8 1 
82 
83 
84 
85 
86 
87 


TABLE 3 


STATEMENT 


FN 
SPC( 
THEN 
NOT 
STEP 
+ 


AUVvVOY yA™ m | 
— 
o 


Mm 
= G) 
= 


ABS 


~~ HN S 
OmnM 
CA tf aw 


SQR 
RND 
LOG 
EXP 
COs 
SIN 
TAN 
ATN 
PEEK 
LEN 
STR$ 
VAL 
ASC 
CHR$ 


LEFT$ 
RIGHT$ 


MID$ 


Low order starting line number (wieght 1) 


High order starting line number (weight 256) 


TOKEN 


A5 
A6 


ENTERING THE PROGRAM 

The hard way to load the program into your PET is to convert my 
nex listing into:decimal and POKE each byte into memory. This is, 
of course, a challenge to your accuracy and diligence, although it 
may take only slightly longer than renumbering by hand. It is only 
a little easier to write a BASIC program which will accept the hex 
data and convert to decimal, with the hex incorporated in DATA 
statements and obtained by the READ statement. With this 
alternate, the program can be recorded for future use. 

To make loading painless (excpet for the wallet), | have arranged 
to make tapes available through NAIL*, Drawer F, Mobile, 
Alabama 36601. These tapes load the machine-language program 
directly into high memory. Ask for “SYS8181” and send $18.18. By 
the way, they also have a dandy PET monitor called SYS7171 for 
$29.71, which has machine language capabilities, the ability to 
co-reside in RAM with BASIC programs, but also has the very 
helpful feature of being able to APPEND one BASIC program to 
another, just like the big boys do, with interleaving of lines. Like 
SYS8181, it uses the BASIC line-inserting routine to do the merging, 
just as though you typed all those new lines on your keyboard. | 
used a version of this monitor to develop SYS8181. If there is 
sufficient interest out there, | may develop a ROM version of 
SYS8181, but you will have to be a hardware buff to wire it into 
your PET. 

Since PET BASIC was written by the same company who write 
APPLESOFT and is similar, some APPLE owners may wish to obtain 
a disassembled, documented listing of this renumbering program 


ifrom me for $5.00. 
*National Artficial Intelligence Laboratory 

4F73 &8 DEY 

1F74 BS 06 @@ INSE LDAAY $0096 
1F77 91 AE STAIY $AE 
1F79 &8 DEY | 
1F7A 19 Fs BPL INSE 
4F7C 20 67 C5 INSF JSR  $€567 
1F7F AS 7A LDAZ $7A 
iF81 A& 7B LDYZ $78B 
1F83 85 71 STAZ $71 
1F85 84 72 STYZ $72 
1F87 318 CLC . 

1F8S AD O41 INSG LDYIM $01 
1FSA Bi 71 LDAIY $73 
aFSC DO @3 BNE INSH 
1FSE 4C 38 1D JMP $1D38 
IF94 AG G4 INSH LDYIM $04 
iF93 C8 INSI  INY 

1F94 Bi 73 LDALY $714 
4F96 DO FB BNE INSI 
1F98 Cs INY | 
iF99 98 TYA 

1FOA 65 71 ADCZ2 $73 
iF9C AA TAX 

iF9D A® Oe LDYIM $02 
1FOF 94 71 STALY $71 
1FA1L AS 72 LDAZ $72 
1FA3 69 @@ ADCIM $06 
IFAS Cg INY | 
4FAG 94 71 STAIY $71 
IFAS 86 71 STXZ $71 
FAA 85 72 STAZ $72 
IFAC 90 DA BCC INSG 
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A PET HEX DUMP PROGRAM 


Joseph Donato 
193 Walford Rd. E. 
Sudbury, ONT., Canada 


Have you PET owners ever wondered how it could be possible to 
look at your BASIC which resides in Read Only Memory (ROM)? 
To be able to look for routines entry points and other interesting 
codes in machine language? 


This program will do just that. You can look at all memory 
locations in PET’s BASIC which starts at 49152 decimal or COOO 
hexadecimal in memory. One is able for example to look at 
locations D71E through D890 where addition and subtraction 
routines are carried out, D8BF through D8FC where the log 
function is evaluated, D9E1 through DA73 where division is 
performed and many other locations where other routines are 
carried out. 

A start for this program was provided by Mr. Herman’s article of 
MICRO 7:47. Of course the same information was available in the 
Commodore Users Notes. 


In any event I decided that the ultimate goal of the program would 
be to provide a memory dump of some sort in hexadecimal 
notation so that machine language instructions could easily be 
recognized. 


The output of the program is formatted as a starting address 
followed by either 32 or 8 bytes of data per line, all in 
hexadecimal, depending on whether or not a printer is to be used. 
With the data bytes in hex notation it is very easy to correlate them 
with the 6502 microprocessor machine language instruction set. 


The program listing has been thoroughly debugged and tested. 
Although the program was originally written for a PET with a 
Centronics printer, as | outlined in the REM’s, the program will run 
on a “bare” PET with no problem. 


REM *** A BASIC PET HEX DUMP *** 
REM THIS PROGRAM WILL PEEK AT PET'S 


REM THE CORRESPONDING DATA. 
REM PRINTING. 


REM 


WO OnN UIE WRH & 


REM IF A "BARE" PET IS USED. 
10 OPEN 5,5:CMD 5 
1] REM FOLLOWING IS A MACHINE LANGUAGE 


REM THE COMMAND ON LINE 10 INITIALIZES THE PRINTER PORT. 


The changes for a “bare” PET are as follows: 


1. Omit line 10. 

2. Change line 542 to read: 
542 IF L499 THEN 570 

3. Omit all print statements and substitute instead the print 
format outlined in the REM’s at lines 606 through 612. 
These print lines are to be placed at line 545, 546, 547, 548. 

4. Notice that there is no comma or semicolon after the last 
print character. This is very important otherwise the format 
will be destroyed. 


A considerable amount of time was spent on both versions of 
the program. No problems were encountered in running either 
version. 


| hope that by following the machine language coding of the 6502 
some of you will obtain a better understanding of PET’s Basic 
‘inner workings’. Also some of you who have the T.I.M. monitor 
will be able to trace its subroutines and jumps to Basic. Perhaps it 
may inspire you in writing some machine language programs or 
routines. 


| should add that if one wishes to look at different addresses other 
than the COOO (49152 decimal}, all you need do is to change the 
Starting address value “K” in line 240. This must be in decimal 
notation. 


| hope you get as much pleasure as ! did ‘sneaking a look’ at PET’s 
Basic. 


REM MEMORY IN ROM STARTING AT A GIVEN ADDRESS 'K' (49152 DECIMAL) AND RETURN 
ALL VALUES ARE CONVERTED TO HEXADECIMAL PRIOR [0 
THE FORMAT IS: STARTING ADDRESS PLUS 32 OR 8 BYTES OF DATA, 
REM PER LINE DEPENDING WHETHER OR NOT A PRINTER IS USED. 


IT *MUST* BE OMITTED 


12 REM ROUTINE WHICH RESIDES IN NUMBER 2 TAPE 


13 REM BUFFER AREA. 
14 REM LOCATIONS SPECIFIED BY 'K'. 
15 POKE(1),58 

16 POKE(2),3 

17 POKE (826), 32 

20 POKE (827), 167 

30 POKE (828), 208 

40 POKE(829),166 


IT RETURNS THE CONTENTS OF THE CORRESPONDING MEMORY 
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50 POKE(830),179 
60 POKE(831),164 
70 POKE(832),180 
80 POKE(833),134 
90 POKE (834), 180 


100 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
232 
233 
235 
236 
237 
238 
239 
240 
241 
250 
259 
256 
270 
280 
390 
400 
405 
410 
411 
412 
413 
414 
415 
416 
418 
420 
430 
440 
445 
446 
447 
450 
455 
460 
470 
480 
490 
500 
210 
520 
530 


POKE (835), 132 

POKE (836), 179 

POKE (837),162 

POKE (838), 00 

POKE (839),161 

POKE (840),179 

POKE (841), 168 

POKE (842), 169 

POKE (843), 00 

POKE (844), 32 

POKE (845), 120 

POKE (846), 210 

POKE (847), 96 

REM SET UP STORAGE AREA FOR ONE 

REM LINE OF HEX VALUES TO BE PRINTED 

DIM N1$(40),NO$(40) 

REM INITIALIZE CHARACTER COUNTER 

L=] 

REM THE VALUE OF 'K' DETERMINES 

REM THE STARTING ADDRESS. 

FOR K=49152 T0 65536 

I=kK 

A=USR (K-65536) 

REM LINES 270-530 CONSIST OF A SUBROUTINE TO CONVERT ALL VALUES FROM 

REM DECIMAL TO HEXADECIMAL NOTATION 

Bx=16 

D=A 

H$="0123456789ABCDEF" 

NO$(L)="" 

N1i¢(L)="" 
%=LOG(I )/LOG(B% ) 

REM BECAUSE THE DECIMAL TO HEX ROUTINE 

REM RETURNS A SINGLE 'O' FOR VALUES 

REM OF A=0, LINE 416 CONVERTS 

REM ANY OF THESE ZERO VALUES TO 

REM A DOUBLE HEX 'OO'. 

IF A=0 THEN NO$(L)="00":GOTO 480 
%=LOG(D)/LOG(B% 

FOR J=G% TO O STEP -] 

X=INT(B%*9) 


REM IN HEXADECIMAL VALUES OF LESS 
REM THAN 'F'(15). EX. '7'='O07' ETC. 
NO$(L )=NO$(L )4+MID$(H$,C%41, 1) 

IF A<16 THEN NO$(L)=('O'+NO$(L)) 
D=INT (D-C%*X) 
NEXT J 
FOR J=F% TO O STEP -1 

X=INT(B%*J) 

S=INT(I/X) 

NI$(L )=NI$¢(L )+MID$(H$,C%+1, 1) 
IT=INT(I-C%*X) 

NEXT J 
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THE TEST VALUE 


L+] 


539 NUMBER 33 *MUST* BE CHANGED TO A NUMBER 9 IF A "BARE" PET IS USED. 


532 REM SUBROUTINE FOR DECIMAL TO HEXADECIMAL CONVERSION ENDS HERE 
542 IF L<>33 THEN 570 


535 L | 
536 REM LINE 542 CHECKS TO SEE IF THE 


537 REM REQUIRED NUMBER OF CHARACTERS 


538 PER LINE HAVE BEEN DONE. 


9 

vt 

9 
te 

9 
w 

9 
tt 

9 


",NO$(5), 


yNO$(32) 


1 


570 NEXT K 
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SHABRUS EY GURVENRS SRS TARSERTZSEN Te 
eee gee ese See Vy ROAayYtT aR RAS REL 
SEAR YESS RASS SSNS TSS ESTAR SZ SE so Se 
Beare OSE ROURKE SHAS H Oana eeeene 
SSB SHSYe SSO BR Re SEAR AR ESRORRNI SE 
SHR RES WYER Bee RES Y SRO Se sta 
S SAE VRS A eee se AB x SEASSRARSRES ES STZ 
id ts Bf. IWS SRE SE SRR SBSRABSLRBK VARs 
SeRSMQ ASS Ascey st SABAH TSY Vat Ve Rw VeR 
My fe Ms Ss ee REGEN SSR RAS FEY RETIRE SRA sy 
SSBASS SY Ra EE SST AVS st ee Cys sae eBay 
CLEC RSSASSE AAA SSeS eeSeseSsnrwesseesRsaae 
SHALE AAS RASAARS TCE SRS ARE sass se 

RHA SE SR BSR AS RRS SS Te S td SRR SNS 
SHAS SERU SSH SEE TSR EYE ASHAAS HS 
RE BSRSE HP R AREY SY Ye ey x SHeSDAeane 
SASLREVSHYS RAMS SAT RSI SEHSstRBteve ses 
NR SRARARS + R= RASTER RIASRRIRS 
SABLE RB BMA Ye STR HAH Ses SSS Ree BS IR PG 
RFASSRECKRERHXAPCR Ss SRP BRSHSRe HRB S eA 
Sk RRAT LTH SRRSYS FRVRBSRY SRGR Mes es 
KESSEL ARSSRMEAEP RSE SPTEeSBesSREea 
Bk RLPRUVSEABHBRSESHSHYERSTRLSBSESBS 
BREW BH RB PORe Ye SRRAEANAT IS See RHE MSS 
SEERA RY RARE IHS eS CREASY RAR Sk RRaASe 
HAS VSe Re RIF QANSeWIESSERGYRBRK OR Ses 
SEMANAS CSB Y SHS SRSA VPSRY SIRs 
MER KRSOLSTHYHCH STARR SRBRASLHSSR SAR 
SRSERERAKRARPHTSEARAYSERSITSSREMRVEB 
SY OW Re POSER SY Te THRs SAB Be PR 
SSKEAYBASBARRRTE SHY SH Se Baese 440 9 te 
AAUSESRBASBSRRRSESHRASEUYsSESRBeH kaze ea 


ESZ228SRSSRSSSSSSSSSRSAASSARSS 


BREAK IN 248 


Example of a partial.Hex Dump obtained withthe Program 


READY. 
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CONTINUCUS MOTION GRAPHICS OR 
HOW TO FAKE A JOYSTICK WITH THE PET 


Alan kK. Christensen 
1303 Suffolk 
Austin, TX 78723 


When using the PET graphics to represent motion 
it becomes apparent that the BASIC supported 
routines are not fast enough to allow smooth 
movement. If the keyboard and screen are ac- 
cessed directly the appearance of controlled mo- 
tion can be greatly enhanced. As an example I 
will use a short game written in BASIC although 
the techniques can be used by machine language 
programs with even better results. 


Let me first describe the game and then explain 
how the effects are produced. The initial ap- 
pearance of the screen is two walls at the right 
and left sides of the screen with a ball and 
pound sign (#) which I will refer to as a bat 
(see figure 1). The ball goes into motion and 
appears to bounce off the top and bottom of the 
screen and the walls. Each time the ball strikes 
a wall it causes part of the wall to disappear. 
The ball will also bounce off the bat and the 
player is able to control the motion of the bat. 
This is done with the keys surrounding the nunm- 
ber 5. As each key is pressed the bat moves in 
the same relative direction as that key was to 
key number 5 (see figure 2). For example if the 
number 8 is pressed the bat moves straight up. 
If the number 1 is pressed the bat moves along 
a diagonal towards the lower left side. The bat 
will continue to move for as long as the, key is 
pressed. The object of the game is to make the 
ball strike the grey area of the left wall be- 
fore it strikes the grey area of the right wall. 


Lines 5-100 of the program are initialization. A 
special input array is set up (more about this 
later) and boundary conditions are set. Lines 
80-90 print the walls. If the walls were placed 
directly on the screen the right wall could be 
one column further right and both walls could be 
extended one line. For this example I chose the 
simplest method of initializing the screen. 


The boundaries are memory locations 32768 thru 
33727. The characters on the PET screen are re- 
lated directly to the values in memory locations 
32768 thru 33767. The screen fills from left to 
right and is 40 characters wide therefore poking 
a value into byte 32768 causes a character to 
appear in the upper leftmost (home) position, 
byte 32768 + 39 is the upper rightmost postion, 
byte 32768 + 40 is the leftmost position of the 
second line and so forth until byte 33767 which 
is the lower rightmost character position. Table 
1 gives the values for each character to cause 
it to appear on the screen. Lines 25 & 30 set 
the conditions to keep the ball and bat from 
moving off the top or bottom of the screen. The 
grey areas of the walls provide the boundaries 
for the sides of the screen. The right grey 
area is actually the reverse field (rvs) of the 
left grey area therefore a peek (32768) would 
return a value of key & = 38 + 64 (for shift) = 
102 while a peek (32768 + 39) would return 102 
+ 128 (for rvs) = 230. This provides an easy 
method of detecting when the sides of the screen 
are reached (and in this example an indication 
that the game is over). 


To provide motion for the ball a horizontal and 
vertical displacement are used. This is so the 
ball can move in directions other than up, down, 
sideways, or diagonal. xX0 is 32768 + the column 
and YO is the line number with 0 as top line. xX 
and Y are increments which are added to XO and 
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YO to get the next position. (Pl is the next 
position while P2 is the current position). If 
the next position is beyond the top or bottom of 
the screen the direction of Y is reversed and 
the next position is set to the current posi- 
tion (lines 120-125) this provides a bounce 
The character on the screen at the next position 
is now checked (line 155). If this is equal to 
35, the pound sign, (line 160) then the bat has 
struck the ball and it bounces off at a new 
angle. The megnitude of vector (S,Y) is fix- 
ed at 1 so that the ball cannot outrun the bat. 
If the next position has a screen value of 160 
(32+128 for rvs blank) the white area of a wall 
was struck and the horizontal direction is re- 
versed (line 180) but the new position is al- 
lowed to stand causing the ball to move into the 
wall. Lines. 185-190 check for the winning or 
losing conditions. Finally in line 195 the next 
position is poked to the screen and the current 
position is blanked out (line 210). The current 
position is reset to the new position after 
looping to line 105 and the ball continues to 
move. 


The bat is supposed to respond to the player and 
so a different movement scheme is used. The key- 
board input routines supported by BASIC require 
one or more keys to be pressed and released for 
each input value to be received. This requires 
the player to tap at the keys like a woodpecker 
to control motion. To avoid this problem the 
program accesses byte 547 of the operating sys- 
tem working storage. When the interpreter is 
running the operating system places a unique 
value in this byte for each key that is pressed. 
{table 1 also gives these values, they are not 
the same as the screen character values). These 
values are then translated to a displacement for 
the bat. 


The bat position is initialized and always kept 
at the actual address of the memory location 
which corresponds to the bats screen character 
position. Al contains the next position while 
A2 contains the current position. In lines . 35-45 
an array E was set up with displacements stored 
at index values matching the values which may 
appear when any of the 8 keys surrounding number 
5 is pressed. All other values of E are zero. By 
using the value at Peek (547) as an index to E 
the proper displacement for that key is obtain- 
ed. For example when key number 2 is pressed, 
the value 18 appears at byte 547 and E(18)=40 
which when added to the current position gives a 
next position one line lower(see lines 130-135) 
but if no key is pressed byte 547 contains 255 
and since E(255)=0 the next position is the same 
as the current position and no motion takes 
place. The position is checked against the 
boundaries (line 140-150) and the screen is up- 
dated (lines 200-205). The program is now fast 
enough for the motion to appear continuous. 


One drawback to this input scheme is that even 
though the keyboard buffer is not used to con- 
trol the bat, it still fills up. Lines 310 and 
320 show how the buffer had to be emptied before 
using the BASIC input routines again in line 
370. When using the continuous keyboard input 
from a machine language routine it is important 
to leave the interrupt set to keyboard input or 
byte 547 may not get updated. 


Gadhia bins id AA i 





Figure 1 Figure 2 
Showing the placement of the wall boundaries 
at the beginning of the game 





TABLE 1 
KEY SCREEN KEYBOARD KEY SCREEN KEYBOARD 
VALUE VAL (547) ALU CVAL C547) 
@ 0 15 blank 32 6 
A 1 A8 33 80 
B 2 30 " 34 72 
Cc 3 31 # 35 19 
D 4 AT $ 36 71 
E 5 63 %o 37 78 
F 6 39 & 38 77 
G 7 46 suekee 39 70 
H 8 38 ( 40 76 
I 9 53 ) Al 68 
J 10 45 x 42 33 
K 11 37 + 43 17 
L 12 44 comma ’ 44, 21 
M 13 29 - AS 
N 14 22 period - 46 2 
O 15 60 / 47 49 
P 16 52 x 48 10 
Q 17 64 1 49 26 
R 18 55 2 50 18 
S 19 40 3 5] 25 
T 20 62 4 52 42 
U 21 61 5 53 34 
V 22 23 6 54 4} 
Ww 23 56 7 55 58 
x 24 24 8 56 50 
Y 25 54 9 57 57 
Z 26 32 : 58 36 
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41) 


100 
105 
110 


TABLE 1 (cont) 


KEY SCREEN KEYBOARD KEY SCREEN KEYBOARD 
VALUE VAL (547) VALUE VAL (547) 





tC 28 
\. | 5 
1 — 
“> ! | 12 
< : | 20 


The screen character values for a shift-key is the value of the key + 64. To get a reverse 
field (rvs) of a character (including shift-key characters) take the character value +128. 


Additional keyboard values: 


Home 74 
RVS 8 
STOP 4 (note pressing this key will still stop the program) 


Up, down curser 66 
Sideways curser 73 


Del 65 
PROGRAM LISTING 
PEM ## WALL REFAK ## 115 Pl = x0 + 49 #@ INT (YO) 
REM ALAN Ke CHRISTENSEN 120 IF P, > & THEN Y = e¥ &: Pl=Pa 
REM AUSTIN, TEXAS 125 IF P} < T THEN Y = “¥ 3 PlsRe 
DIM € (256) 130 I% = PEEK (547) 
T = 32768 135 Al = Al * ETH) 
BH = 33727 140 IF PEEK(A1) >» 199 THEN AL=A?2 
£(58) = -4) : £(S50) = -49 % ©(57) = -39 145 IF A} > B THEN AI=A2 
E(42) == 43 3: &(41) = 1 150 IF Ay < T THEN Al=A2 
£(26) = 39 3: €(18) = 49 $ F(25) = 41 155 P% = PEEK(P1) 
X0 = 32788 160 IF Pe <> 35 THEN 180 
Yo = 11 165 X = SGN(-X) # RND1I1) 
Al = 331498 170 Y = SQR(1LeX#x) # SGNIP2-A2) 
Pl = 33188 175 Pl = Pe 
X = RND(T) #5 & Y = SQR(1°x#X) 180 IF P$=160 THEN x=-X 
2," 185 IF Py = loe THEN 300 
clr 
FOR ry = 1 To 25 190 IF P% = 230 THEN 400 
? la .A'SPC (33) 195 POKE P1187 
NEXT T 260 POKE Ale35 
REM ## END OF INITIALIZATION ot 20S IF ay<>A2 THEN POKE A2932 
‘A2 = Al ? P2 = Pl 210 IF Py <>P2 THEN POKE P2932 
XO = xO +X: YO = YO + Y 215 GOTO 15 
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PROGRAM LISTING (cont) 


300 REM ##* wINNER ##* 
410 GET A$ 
310 GET Af 
420 IF A® <> "'"' THEN 410 
320 IF as <> "" THEN 310 | 
430 2A" SPC(12)" 4SORRY AATRY 4 piAGaINn” 
330 9" "SPC (12) ",CONGRATULATIONS" ome rvs off'* rvs off'trvs 
home ‘rvs 440 FOR ~ = 1 TO 1090 * NEXT 1 
340 FOR ~ = 1 TO 100 * NEXT I 
450 2 ta tSPC(12)" SORRY TRY AGAIN" 
350 27". "SPC (12) "CONGRATULATIONS" | home 
home 460 FOR y = 1 TO 100 ¢ NEXT J 
360 FOR tr = 1 TO 100 ? NEXT I 
' 470 GET AS 
379 GET A$ 
480 IF AG = uu THEN 430 
380 IF ag$ = THEN 330 
490 GO To 5Sfi 
390 GOTO SU 
500 END 


409 REM ##* LOSER #H# 


a Ee 


. THE SIEVE OF ERATOSTHENES 


Over 2000 years ago, a Greek geographer-astronomer named 
Eratosthenes devised a way of finding prime numbers that is still 
the most effective known. He simply started with the number 2 
and crossed out all multiples of 2. Then he took the next number 
that had not yet been crossed out (3) and proceeded to cross out 
all multiples of it. And so on until he had found al! the prime 
numbers he was interested in. This method of finding prime 
numbers is called a “sieve” because the prime numbers fall 
through the holes created by crossing out all the non-prime 
numbers. 


So what? Well, this gives rise to an interesting program for the PET. 
Picture the 1000 character positions on your PET’s screen as the 
numbers 1 to 1000. Now cross out all the positions that represent 
non-prime numbers. What you have left is a strange pattern that 
would make an interesting bathroom tile arrangement. It also 
shows the placement of the prime numbers occurring between 1 
and 1000. 


10 PRINT CHRS$(147); 
20 DIM A(200) 


Line 10 simply clears the screen. PET users can use the CLR 
function rather than the CHR$(147). Line 20 reserves storage for 
the prime numbers we will extract later. (There are more prime 
numbers than you might think in the range of 1 to 1000.) 


90 FOR N=2 TO 35 

95 IF PEEK(Nt32767)=102 THEN 130 

100 FOR X=327671(2*N) TO 33767 STEP N 
110 POKE X,102 

120 NEXT X 

130 NEXT N 


This double loop is the meat of our program. We only loop 34 
times (2 to 35) because it is only necessary to test for multiples of 
primes up to the square root of your limit - in this case 
SQR(1000) = 31t. (1 added a couple for good measure). Line 95 
checks the screen to see if our next potential prime has already 
been crossed out. Line 100 does the stepping across the screen, 
and line 110 does the “crossing out.” Note that the PET’s screen is 


actually addressable memory beginning at 32768(10). 


Gary J. Bullard 
1722 S. Carson, #1502 
Tulsa, OK 74119 
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200 N=1 
210 FOR X=1 TO 1000 
220 Z=PEEK(327671X) 


.240 IF Z=32 THEN POKE(32767tX),81:A(N)=X:N=NT1 


250 NEXT X 


Now that we have crossed out all the non-primes, it is time to see. 


what was left. This loop examines the screen to find the spaces.. 
The index “X” will tell us what character we are looking at and the 
counter “N” will give us the next empty space in our table to store 
the prime number. Line 200 sets the table pointer to 1. Lines 
210-250 is the loop that examines the screen. Line 220 looks at the 
current character position and puts its value in Z. In this case, the 
value will be 102 if it is a crossed out position, and 32 if it has not 


been crossed out. Line 240 then tests the value of Z and either 
ignores it if it has been crossed out or saves it in our table if it is 
prime. 


300 GET A$:IF A$=”" “” THEN 300 


This line simply causes the PET to pause while you admire its 
handiwork. When you are ready to see a list of the prime numbers; 
press any key. 


400 PRINT CHR$(147); 

410 FOR X=1 TO 200 
420 IF A(X)=0 THEN STOP 
430 PRINT A(X); 

440 NEXT X 


Line 400 clears the screen again. Lines 410-440 recovers our prime 
numbers from the table and prints them. When the table returns a 
zero, then we are finished, and the program will stop (line 420). 


999 END 


| hope you enjoyed this little bit of updated history. I’m sure old 
Eratosthenes would have been very happy to have had a PET to 
play with, but even 2000 years later he is not out of date. 


INSIDE PET BASIC 


Jim Butterfield 
14 Brooklyn Avenue 
Toronto, Ontario 


Canada 


PET BASIC is pretty good: fast, powerful, and 
flexible. Most of the time you can write pro- 
grams without ever needing to know what's in- 
side. But there are a few handy things that you 
can't do without "dissecting" BASIC. Let's take 
a couple of examples. Suppose you want to look 
through a big program for some reason. You 
might have a small bug: say a variable, X4, 
ends up with a wrong value, and you want to find 
out why. You could list the program, a screen- 
ful at a time, looking for every time X4 is 
used; but eye fatigue starts to set in. Wouldn't 
it be nice to have a utility program to do the 
scanning for you? 


Program FIND 


Program FIND will do the job for you. To write 
such a program, though, we need to know how 
BASIC is built. MThe first line of your BASIC 
program starts at address 1025 (or 0401 hexadec- 
imal). That's where we must start our search. 
Each BASIC line will have the following format: 
The first two locations contain a pointer to the 
next line of BASIC; or if they contain zeros, 
there is no next line and this is the end of 
your progran. The next two locations contain 
the BASIC line number. After that (starting at 
the fifth location) we have the BASIC line it- 
self. It's mostly in ASCII code, but keywords 
such as FOR, PRINT, or SQR are stored as special 
codes known as "tokens", At the end of the line 
we'll find the value zero. 


How do we use this information to scan BASIC for 
a given expression? First, we set our address, 
A, to 1025; that's where BASIC starts. Next, we 
skip over the first four bytes (pointer and line 
number) and search from A+4 to the end of the 
BASIC line. We'll recognize the end-of-line by 
the zero at the end. If we find the expression 
we want, we can output the line number by ob- 
taining it from A+2 and A+3. It's in binary, so 
we use the expression 256#PEEK(A+3)+PEEK(A+2) - 
printing this value will print the line number. 


When we reach the end of the BASIC line, we must 
go to the next line, of course. It will be 
right behind the zero that marked the end of our 
previous line; or we can use the pointer to jump 
ahead with A=256*®PEEK(A+1)+PEEK(A). If the 
pointer is zero, we know that we have come to 
the end of the BASIC program and can stop. 


Program RESEQUENCE 


Let's move on to something more complicated. 
Suppose you want to renumber your BASIC program. 
Since we know how the line numbers are stored in 
BASIC, it seems easy; we'll just change them to 
the new values. There is a hitch, however. 
What happens if your program contains a GOTO 300 
statement - and now line 300 is renumbered so 
that it becomes line 380? Problems - that's 
what happens. 


What we must do is search out all the GOTOs and 
GOSUBs, including those. included in ON.. state- 
ments, and be ready to change the old line nunm- 
bers to new ones. One way of doing this is to 
build a table of "old" addresses, match them 


M4M 2X5 


with the "new" line numbers, and then correct 
them after renumbering has been accomplished. 
To help make things more complicated, we have 
two different ways of using the THEN statement. 
If we have a line such as IF J=12 THEN Y=2, 
there is no line number reference to correct. 
On the other hand, if we have IF J=12 THEN 530, 
we must be ready to fix up 530, replacing it 
with a new line number if necessary. 


More difficulties: if we have a statement which 
says, for example, GOTO 5, and with the renun- 
bering we want to change it to GOTO 100, we 
won't have space! And making space isn't that 
easy: you may recall that the lines of BASIC 
are "chained" together with pointers; if we 
lengthen a BASIC line, all the pointers will 
need to be fixed up! This last problem is too 
tough to resolve in a simple manner - let's 
sidestep it by printing a warning notice if it 
should occur. 


How do we approach this job? We separate the 
program into three phases. Phase 1 looks 
through the program for line number references 
and builds a table. Phase 2 does the actual re- 
numbering (the easiest part of the whole job). 
Phase 3 looks through the program again and cor- 
rects the line number references. How do we 
look through the program? The same way as with 
program FIND. We're looking for three keywords: 
GOTO (token 137), GOSUB (141) and THEN (167). 
Sometimes we'll also allow a comma (44) so that 
statements such as ON X GOTO 100,200,300 will be 
allowed. You'll see this testing for tokens on 
line 60220 of RESEQUENCE. 


If we find one of these keywords, we must con- 
vert the following ASCII numbers into a value V 
corresponding to the line number. During Phase 
1, we build these line numbers into a table at 
60090. Phase 2 is a snap. In lines 60030-60040 
we change the line number and then check to see 
if the old number was in table V%. IF so, we 
fill in the cross-reference. Phase 3 is the 
long one. We must repeat the search of Phase 1. 
Then, in 60110 to 60150 we must build the new 
line number (in ASCII) and insert it - with ap- 
propriate tests and warning notices. 


Making Them Work 


Both FIND and RESEQUENCE are written in BASIC. 
That means that they will have to reside in 
PET's memory along with the programs they are 
dealing with. RESEQUENCE is constructed so that 
it doesn't renumber itself, of course; and FIND 
will examine itself, reporting any occurences of 
the search string. Another problem arises, how- 
ever: how can you get two programs into the PET 
at the same time? We need to load either FIND 
or RESEQUENCE together with the program that is 
being processed. A normal PET load wipes out 
the old program when a new one is loaded. You 
could always add FIND or RESEQUENCE by entering 
it at the keyboard; this would add the utility 
program to the existing program in memory. But 
such a procedure is lengthy and it would be easy 
for errors to creep in. There must be a better 
way. One good way is to use the screen as a 
"holding buffer". You could load program FIND, 
and list it onto the screen. Then load the pro- 
gram you want to search. FIND will be wiped out 
of memory, but it's still on the screen - so you 
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can move the cursor back to displayed line 9000, 
and hit RETURN eight times. FIND will be re- 
stored to memory, where it now shares space with 
the program to be scanned. This doesn't work 
too well with a longer program like RESEQUENCE, 
however. The program is too big to fit on the 
screen - much too big. There must be another 
even better way. Larry Tessler of Sphinx opened 
the door with his program UNLIST, which made 
true program merging possible for the first 
time. Since this breakthrough, an even better 
method has been devised by Brad Templeton of 
Toronto. 


UNLIST - A Procedure for Merging Programs 


Here's how it works. Be sure to follow the in- 
structions carefully and exactly. Prepare the 
programs you will want to merge in the following 
manner. Load the program. Place a blank tape 
into your cassette unit. Now type: 


OPEN 1,1,1:CMD 1:LIST 
When the tape stops, type: 
PRINT#1: CLOSE 1 


and your merge tape is ready. At a later time, 
when you want to merge the program, here's what 
to do. First, mount the merge tape you previ- 
ously prepared and type OPEN 1. Now clear the 
screen, give exactly four cursor downs, and type 
the following, but DO NO HIT RETURN: 


POKE611, 1: POKE525, 1: POKE527 , 13:?"h" 


(h is cursor home; shows as reverse S). Don't 
hit return: press cursor home and give six (6) 
cursor downs. Now type exactly the same line 
(two lines below the first line) and then hit 
RETURN. The tape will more; the merge will take 
place; and finally, an error notice will print 
between the two lines. Stop the tape if it's 
still going, and then type CLOSE1. Miraculously 
the merge has taken place! 


How does it work? It's a little complex; but if 
I hinted that POKE 611,1 transfers control away 
from the PET's keyboard to the cassette tape, 
you'd have part of the story. And if I mention- 
ed that poking 525 and 527 simulates a RETURN 
key being hit, you'd have another part. But, 
you don't need to know what makes it work in 
order to use it. Use it; benefit from it; and 
enjoy it. 


FIND for PET 


Need to search a program for an express, a var- 
iable, or a keyword? Slip program FIND in be- 
hind your program (it's not very long) - then 
insert a line 1 to say what to search for ... 

and the job's done. Every line in memory which 
contains the same expression as line 1 will be 


reported. This includes line 1 itself, of 
course, and any lines in program FIND ... as 
well as the program you're searching. The 


program is listed here spaced out for read- 
ability - close in the spaces when you input to 
save space, 


9000 A=1025 : X=PEEK(1029) FOR J=1 TO 1E3 : FOR 
K=A+4 TO A+83 

9001 PsPEEK(K) : IF P=2X THEN GOSUB 9005 

9002 IF P<>0O THEN NEXT K 

9003 A=256*PEEK(A+1)+PEEK(A) : IF A>O THEN 
NEXT J 

9004 STOP 

9005 FOR L=1 TO 80 : Y=PEEK(1029+L) : FI Y=0 
THEN ? 256*PEEK( A+3)+PEEK(A+2); : RETURN 

9006 IF Y=PEEK(K+L) THEN NEXT L 

9007 RETURN 


Example: to find all FOR statements in a pro- 
gram; insert FIND (above) and then insert line 1 


1 FOR 


Now invoke FIND with RUN 9000. The program will 
print 1 followed by any program lines containing 
FOR followed by 9000 9000 9005 (9000 prints 
twice because it contains two FORs). 


and doesn't store as three 
separate characters, so you wouldn't find it 
if you searched for characters FO. This can be 
handy: if you were looking for variable F you 
wouldn't get all the FORs printed. 


FOR is a keyword, 


Modifications: if you squeezed P=0 just ahead 
of RETURN on line 9005 (it's a tight squeeze) a 
line number would print only once even when it 
had multiple matches; you might or might not 
want this feature. 


IMPORTANT: Don't forget to wipe out line 1 and 
program FIND when you're finished with them. 


RESEQUENCE for PET 


60000 END 

60010 TO= : DIM VZ(100) ,W%Z(100) : GOSUB 60160 : 
FOR R=1 TO 1E3 : GOSUB 60210 

60020 IF G THEN GOSUB 60090 : NEXT R 

60030 GOSUB 60160 : FOR R=1 TO 1E3 : NsINT 
(M/256) : POKE A-1,M=-N#256 

60040 POKE A,N : Vs=L : GOSUB 60070 : W%(J)=M : 
GOSUB 60170 : IF G THEN NEXT R 

60050 GOSUB 60160 : FOR R=1 TO 1E3 : GOSUB 60210 
: IF G THEN GOSUB 60110 : NEXT R 

60060 ?"*END#" ; END 

60070 J=0 : IF T<>0O THEN FOR J=1 TOT : IF V&(J) 
<> V THEN NEXT J: J = 0 

60080 RETURN 

60090 IF V<>0 THEN GOSUB 60070 : IF J=0 THEN T= 
T+1 3: VZ(T)=V 

60100 RETURN 

60110 GOSUB 60070 : IF J=0 THEN RETURN 

60120 W=W4(J) 3; IF W=O THEN ?"GO";s"L"3L3 "on: 
RETURN 

60130 FOR D=A TO B+1 STEP-1 : X=INT(W/10) 
Y=W-10*X+48 :; IF W=O THEN Y=32 


60140 POKE D,Y : W=X : NEXT D : IF W=0 THEN 
RETURN 
60150 2?" INSERT" ;W%(J);"L";L : RETURN 


60160 F=1025 : M=90 

60170 A=F : M=M+10 

60180 FsPEEK( A)+PEEK( A+1)#256 : L=PEEK( A+2)+ 
PEEK(A+3)*256 : AzA+3 : G=L<6E4 

60190 RETURN 

60200 S=0 

60210 V=0 : AzA+1 : B=A : C=PEEK(A) : IF C=0 
THEN GOSUB 60170 : ON G+2 GOTO 60210,60190 

60220 IF C<>137 AND C<>141 AND C <>167 AND C<>S 
GOTO 60200 
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RESEQUENCE : 


60230 AsA+1 : C=PEEK(A)-48 ; IF C=~16 GOTO 60230 
60240 IF C>=0 AND C<9 THEN VeV#10eC GOTO 60230 
60250 S+44 : AzA-1 : RETURN 


RESEQUENCE can sit quietly behind your progran. 
When you say RUN 60010, your program is renun- 
bered. RESEQUENCE gives error notices if: 


A. a GOTO or GOSUB statement wants to go to 
a non-existant line; 
B. there isn't enough room for a new (higher) 
line number. 
In both cases you're given the (new) line number 
where this happens. RESEQUENCE doesn't run fast 
(allow about a second per line, more for large 
programs), but it's dependable and very useful. 


Author's Notes: 


Program comments: Line 6000 stops the user pro- 
gram if it gets here. Lines 60010-60020 extract 
all GOTO, GOSUB, and THEN references and build 
them into a table. Lines 60030-60040 renumber 
all lines, and cross-references the table if 
needed. Line 60050 updates all line references. 


Subroutines: 60070 looks for an entry in the 
line number table. 60090 inserts a new entry 
into the table. 60110 revises a line number 
reference. 60160 starts a new scan of the user 
program; 60170 continues the scan with the next 
line. 60210 scans the user program for GOTOs, 
etc.; value S is used to accomodate ON A GOTO 
oe» type situations. 


Reader questions suggest that the following additional information may be 
useful: 


UNLIST procedure: when you mount the previously prepared merge tape and 
type OPEN 1... 


-follow this statement with a carriage return in the normal 


way; 


-PET will want to read tape; press PLAY as requested. Tape 
will move, and eventually PET will report FOUND. Now clear 
the screen and continue with the POKE 611,1 procedure. 


the program as written will handle line numbers up to 32767, 


which gives lots of scope in program-writing. If you need to 
handle higher line numbers, change V%( to Y¢ throughout the 


program. 


Using VZ( saves space in memory, since integer arrays are 
stored very efficiently. However, the highest integer allowed 
is 32767, so that higher line numbers won't fit. 


It's probably obvious that the user program must have all its 
lines below 60000 - since RESEQUENCE itself starts at that point. 
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6502 INTERFACING FOR BEGINNERS; 
THE CONTROL SIGNALS 


Marvin L 


- De Jon 


Dept. of Math—Physics 
The School of the Ozarks 
Pt. Lookout, MO 65726 


By now your breadboard should look like a rat's 
nest so we shall add just a few more wires. So 
far you have used several decoding chips to pro- 
duce device select pulses (also called chip sel- 
ects, port selects, etc.) These pulses activate 
a particular I/O port, memory chip, PIA device, 
interval timer or another microcomputer compon- 
ent. Almost all of these components must "know" 
more than that they have been addressed. They 
must know if the microprocessor is going to READ 
data from them or WRITE to them. The R/W con- 
trol line coming from the R/W pin on the 6502 
provides this information. It is at logic 1 for 
a READ (typically LDA XXXX) and at logic 0 for 
a WRITE (typically STA XXXX). 


If you have ever tried to wrap your mind around 
timing diagrams for microcomputer systems you 
soon realize that system timing is also import- 
ant. Suppose that a memory chip is selected by 
a device select pulse. A 21L02 chip, after 
being selected, must decode the lowest 10 add- 
ress lines itself to decide which of its 1024 
flip-flops will become the output data. This 
takes time, so the data at the output pin is not 
ready instantaneously. The 6502 simply waits 
for a specified amount of time, and at the end 
of this period it reads the information on the 
data bus. If the access time of the chip is too 
long, the 6502 will read garbage; otherwise it 
will get valid data. 


Likewise, during a WRITE cycle, the microproces- 
sor brings the R/W line to logic 0, selects the 
device which is to receive the data, and at the 
end of a cycle it signals the divice to read the 
data which the 6502 has put on the data bus. 
The signal which successfully concludes both a 
READ and a WRITE instruction is the so-called 
phase-two clock signal symbolized by 0g. In 
particular, it is the trailing edge (positive to 
zero transition) of this signal which is used. 


All the timing for the microcomputer is done by 
the crystal oscillator on the microcomputer 
board and the clock circuitry on the micropro- 
cessor itself. A clock frequency of 1 MHz pro- 
duces a machine cycle of 1 microsecond in dura- 
tion. Near the beginning of the cycle the ad- 
dress lines change to select the divice which 
was addressed, and the R/W goes to logic 1 or 
logic 0 depending on whether a READ or a WRITE 
was requested. If a READ was requested, some 
device in the system responds by putting data on 
the data bus. Typically this happens during the 
second half of the cycle when 0g is at logic 1. 
Finally, at the end of the cycle, but before the 
address lines or the R/W line have changed, 0g 
changes from logic 1 to logic 0, clocking the 
data into the 6502. The same kinds of things 
happen during a WRITE cycle, except that now the 
external device uses the trailing edge of the Og 
signal to clock the data, while the 6502 puts 
the data on the bus at a slightly earlier time 
in the cycle. For details refer to the 6502 


HARDWARE MANUAL. 


The circuits you have built so far, together 
with a few more chips, will demonstrate the eff- 
ect of the control signals. Refer to Figure 1 
of the last installment of this column (MICRO, 
Issue 6, p. 30), and to Figure 1 of this issue. 
You will see the LS145 and the LS138 have not 
been changed too much, in fact all of the conn- 
ections to the LS145 should stay the same. The 
device select pulse from the LS145 goes to G2A 


as before, but another signal goes to G2B in the 
new Figure 1. For the moment disregard the low- 
er LS138 and LS367 in Figure 1 of this issue. 
The new signal to G2B of the LS138 is our WRITE 
signal. It is produced by NANDING the W/W sig- 
nal with Og and it is an active-low signal. On 
the KIM-1 it is called RAM-R/W and is available 
on the expansion connector. Most other 6502 
systems will very likely also have a RAM-R/W 
signal. 


Its effect in Figure 1 is to inhibit the devic:: 
select pulse from the LS138 whenever the R/W 
line is high (during all READ instructions), 
but to allow the device select pulse to occur 
when the R/W line is low and 0, is high. Thus, 
the top LS138 in Figure 1 selects output ports 
only, and the device select pulse from it termn- 
inates on the trailing edge of the Og. producing 
a logic 0 to logic 1 transition simultaneously 
(almost) with 0g. This pulse is inverted by the 
LSO4. Consequently, a WRITE instruction pro- 
duces a positive pulse at the G inputs of the 
LS75 whose duration is about 1/2 microsecond and 
whose trailing edge coincides with 0,. 


The 74LS75 is a 4-bit bistable latch whose Q 
outputs follow the D (data) inputs only when the 
G inputs are at logic 1, in other words during 
the device select pulse from the LSO4 inverter. 
The trailing edge of this pulse latches the Q 
outputs to the value of the D inputs during the 
device select pulse. If you had a great deal of 
trouble following this, you may want to check 
the reverse side of this page to make sure there 
is nothing valuable on it and then destroy this 
by burning or shredding! Otherwise proceed to 
to the experiment below. 


Connect the circuit shown in Figure 1, omitting 
for the time being the lower LS138 and the 
LS367. You can also omit the connection of add- 
ress line A3 to Gi on the top LS138 if G1 is 
connected to +5V as was indicated in the last 
issue. In other words, simply add the LSO4 and 
the LS75 to your circuit of the last issue. The 
RAM-R/W signal must also be generated if your 
6502 board does not have one. Simply use one 
inverter on the LSO4 to invert the R/W signal to 
R/W, then NAND it with the 0 , and run the out- 
put of the NAND gate to the G2B pin on the LS138. 


The address of the device is 800F if the connec- 
tions are made as shown in the figure. If other 
pins on either the LS145 and/or the LS138 are 
changed the address will be different. The 
switches shown connected to the D inputs may be 
implemented with a DIP switch or jumper wires. 
An open switch corresponds to a logic 1 while a 
closed switch is logic 0. Set the 4 switches to 
any combination then load and run the following 
progran;: 


0200 8D OF 80 STA DSF. 
The LEDs should indicate the state of the 
switches. If you add the statements 


0203 4C 00 02 JMP START 


then you should be able to change the switches 
and the LEDs will follow the switches. Try sub- 
stituting an AD OF 80 (LDA DSF) for .the 8D OF 80 
instruction. Nothing should happen, even though 
the same address is being selected, because on 
LDA instruction the R/W line is high, inhibiting 
the LS138 from producing a device select. Fin- 
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ally, connect the data lines D0-3 from the 6502 
to the D-inputs of the LS75, making very sure 
that the LS145 is de-selecting other locat- 
ions. On the KIM-1 this means that pin 1 of the 
LS145 is connected to pin K on the application 
connector and pin 9 of the LS 145 is connected 
to pin J. The appropriate pull-up resistors 
must also be added. With the data lines conne- 
eted run the following program: 


0200 A9 04 
0202 8D OF 80 


LDAIM $04 
STA DSF. 


Play around with different numbers in LDAIM ins- 
truction and explain your results. If nothing 
seems to make sense, it may be that your data 
lines need to be buffered, a topic we will take 
up next issue. If your results make sense you 
will have discovered that we have configured a 
4-bit output port whose address is 800F. Adding 
another LS75 to connect to data lines D4-D7 and 
whose G connections also go to the output of the 
LSO4 will give an 8-bit output port. Seven 
other output ports, addresses 8008 through 800E, 
could be added using the other device select 
signals from the LS138, LSO4 inverters, and LS75 
latches. 


If you want to make an input port wire the cir- 
cuit for the lower LS138 in Figure 1. If you 





don't have much more room on your circuit board 
you might want to simply reconnect the upper LS- 
138 to become the lower LS138. A couple of con- 
nections do the trick. Set the switches to any- 
thing you like and run the program below. 


KIM-1 users should see the hex equivalent of the 
switch settings appear in the right-most digit 
on the display. Owners of other systems can 
omit the last two lines of the program, stop it, 
and examine the location OOF9 to see that the 
lowest four bits agree with the switch settings. 
Experiment with other switch settings to make 
sure that everything is operating correctly. 


The completed circuit of Figure 1 gives one 4- 
bit output port (provided the data lines are 
connected to the D inputs of the LS 75) and one 
4.bit input port, addresses 800F and 8007 resp- 
ectively. These two ports are easily expanded 
(two more chips) to become 8-bit ports. Like- 
wise the circuit of Figure 1 could be expanded 
to give a total of eight 8-bit input ports and 


‘eight 8-bit output ports. 


Next issue we will look at a slightly different 
input port, and we will look in more detail into 
three-state devices and the data bus. You may 
want to keep your circuit together until then. 





0200 AD 07 80 START LDA DS7 Read input port data 
0203 85 F9 STA DISP and store it in location OOF9. 
0205 20 1F 1F JSR SCANDS Jump to KIM display subroutine. 
0208 4C 00 02 JMP START Repeat program. 
O+5V 
Aol 
OUTPUT PORT 
Ali 
Az 
Az 
Al3 l= 
Al4l> 
AlslL—1C 
%, > 
> 
Figure 1. A four-bit input port and output 


port interface for the 6502. 
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6502 INTERFACING FOR BEGINNERS: 
BUFFERING THE BUSSES 


Marvin L. De Jong 
Dept. of Math-Physics 
The School of the Ozarks 
Pt. Lookout, MO 65726 


The address bus is the set of 16 conducting 
lines interconnecting the 6502 and numerous 
other integrated circuits in the computer system 
such as memory chips, PIAs, decoding circuits, 
etc. On my 8K memory board the address bus is 
connected to 64 memory chips. The address bus 
carries the addressing information from the 6502 
to the other components in the system. It is, 
consequently, a one-way bus, in contrast to the 
data bus which carries signals both ways. 


The control bus is a set of conductors which 


connect the 6502 control ;oignals (O , R/W, 
SYNC, RST, NMI, IRQ, RDY, and SO) with the other 
components in the microcomputer system. Some 


control signals originate in the 6502 and these 
are bussed to the system. Other control signals 
e.g. NMI and IRQ, originate somewhere in the 
system and are bussed to the 6502. None of the 
control signals use a bi-directional bus like 
the data bus. 


Finally, the data bus is a set of 8 conductors 
connecting the 6502 and the other devices in the 
system. It presents a special problem because 
it is required to carry information two ways, 
hence the name “bi-directional data bus." Ona 
WRITE command the data bus carries an 8-bit word 
(one bit on each line) from the 6502 to a memory 
location, while on a READ command the data bus 
carries information from a memory location to 
the 6502. On my 8K memory board each data line 
is connected to 8 memory chips. 


WHY BUFFER? 
There are two reasons for buffering uni-direc- 


tional busses like the address bus and the con- 
trol bus: 


1. The address and control pins on the 6502 are 
rated to drive one standard TIL load. In any but 
the simplest computer system there will be 
heavier loading than this. 


2. Every conductor including those which make 
up the busses has some capacitance. Capacitors 
require time to charge and discharge and "dis- 
tort" rapidly changing waveshapes. Buffer chips 
can drive a much larger capacitance than the 
‘6502, and consequently may be inserted to pre- 
serve the integrity of the waveshapes of the 
-Signals. 


In addition, the data bus requires a special 
kind of buffer. Recall that the microprocessor 
is capable of reading data from any of 65,536 
devices. But only one at a time,please. All 
the others should act as if they are not there, 
which means they should be disabled somehow. If 
two devices are both attached to a data pin, one 
trying to raise it to logic 1 and the other try- 
ing to lower it to logic 0, not even a prophet 
can predict the result. The third reason for 
buffering applies only to bi-directional busses 
and may be summarized: 


3. Buffers must be capable of isolating the bus 
from all of the devices on the bus except those 
which have been addressed (for example, the 6502 
and an input port) and between which data is be- 
ing transmitted. 
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BUFFER/DRIVER CHIPS 


We mentioned earlier that all the bus pins on 
the 6502 are rated to drive one standard 7400 
series TTL load. This means that you could con- 
nect about four 74LS00 series chips to a bus 
line, but if you tried to hang additional chips = 
on these lines the circuit would probably not 
operate. For the address bus and the control 
bus the solution is to connect the 6502 pins di- 
rectly to two 7404 inverters (or 7HLSOM4's). A 
7404 can drive 10 standard TTL loads and about 
40 LS loads, while a 74LSO4 can drive 20 74LSO00 
series loads. This should provide adaquate 
drive for most systems, provided the bus length 
is not to great. If you have a KIM-1 schematic 
you will note that both R/W and 0 are buffered 
in this manner, but that none of the address 
lines are buffered because the KIM-1 system is 
small enough to not require buffering. However 
if you expand, the address lines will also re- 
quire buffering. As an example, see KIM USER 
NOTES, Issue #7,8 where Jim Pollock gives a KIM 
to S=-100 circuit. 


There are other chips called Bus Buffers/Drivers 
which can be used either on uni-directional 
busses or the bi-directional data bus. They 
come in packages of four (quad), six (hex) or 
eight (octal) buffer/drivers to a chip. If you 
want to look up the specs on some of these chips 
here are a few of the more popular ones. 


74LS125 quad DM8093 quad 


7T4LS126 quad DM8094 quad 
LS367 hex DM8097 hex 
8T97 hex 81LS97 octal 


All of these except the 81LS97 are readily 
available (Jameco, Godbout, Jade, etc.). _ The 
only place I have been able to find 81LS978 is 
Hamilton-Avnet. They are a bit more expensive 
and come in a 20 pin package, but they are nice 
because they can handle eight lines. Note that 
we have already used the 74LS367 to buffer ad- 
dress lines. Refer to the last several columns 
of this feature. 


The truth table and logic symbol for a typical 
buffer/driver are given in Figure 1. Carefully 


‘focus your beady eyes on the function of the G 


(gate) input. 


Note that when G is low the output follows the 
input logic level. The device is then doing its 
thing, namely driving the particular bus line to 
which it is attached. The inversion circle in- 
dicates that the buffer/driver is active (works) 
when the gate signal is a logic 0. Some buffers 
have no inversion circles,and they will be 
active when the gate is at logic 1. Perhaps the 
most important feature is the third state of the 
output in the truth table, which we have label- 
led "disabled." When the gate is high the de- 
vice behaves as if it were disconnected from the 
bus, that is just as if a switch in series with 
output were opened. This property is the reason 
for calling these devices “three-state buffer/ 
drivers" or” or "“TRI-STATE buffer/drivers." 
(TRI-STATE is a trademark of National Semicon- 
ductor.) 


Figure 2 shows how an LS 125 might be used on 
the bi-directional data bus. Only two bus lines 
are shown for simplicity. During a WRITE in- 
struction the R/W line is low, enabling the buf- 
fers which drive the signals from the 6502 to 
the external devices. The other buffers which 
drive the 6502 are disabled. Analyze what would 
happen if they weren't disabled! During a READ 
instruction the R/W line is high, it is inverted 
by the LSOU, and it enables the buffers driving 
the signal from the external devices to the 
6502. 


The scheme shown in Figure 2 is not the only 
possibility. For example, the S-100 bus would 
not have pins 3 and 5 connected, nor pins 8 and 
12 connected. Instead, the data bus is divided 
into two separate busses at this point. The bus 
lines connected to pins 3 and 8 become a "data 
out" bus, while the lines connected to pins 5 
and 12 become a “data in" bus. I am not aware 
of all of the advantages and disadvantages of 
this scheme, so we will not pursue it further. 


AN EXPERIMENT 


Connect an LS125 as shown in Figure 3. Note 
that RESET will very likely cause all the LEDs 
to light. Now run the following program: 
0000 4C 00 00 START  JMMP START 
This is an infinite loop. Do not try to relocate 
the program or the experiment may not work. You 
should observe that the LEDs on DO and D1 are 
off while the other two are one. Can you ex- 
plain why before I do? 


Analyzed by clock cycles the activity on the 
data bus may be summarized as follows: 


The LEDs connected to D3 and D2 get a pulse once 
every three clock cycles, which the eye inter- 
prets as a continuous glow. Now connect the 
gates (pins 1,4,10,13) to +5V instead of ground. 
None of the LEDs light. Why? 


AN OBSERVATION 


Refer to Figure 1 in the "INTERFACING...." 
column in MICRO #7. The input port illustrates 
how a buffer/driver isolates the data bus. 
Note that the device select pulse is connected 
to the gate of the LS367. Thus, only when the 
address lines select the input port and the 6502 
is in the READ state does the LS367 control the 
data lines. Otherwise it is disabled and the 
6502 gets its data elsewhere. 


The output port of the same circuit illustrates 
another point. Suppose we had say eight output 
ports. Data lines DO-D7 would each have eight 
LS inputs hanging on them, and the 6502 would 
probably be unable to drive them. The solution 
would be to buffer the data lines from the 6502 
to the output ports. In this case one would 
probably connect the R/W line to the buffer/ 
driver gates. 


160 


AN APPLICATION 

Again refer to Figure 1 in this column in MICRO 
# 7. Recall that the data lines were to be con- 
nected to the D inputs of the LS75 to complete 
the output port, replacing the switch. A com- 
plete 8-bit output circuit, with buffering, is 

shown in Figure 4. The device select circuitry 
is not repeated here. Up to eight output ports 
can be implemented using the device select 
pulses from the LS138. All you have to have 
are LS 75s. The buffering shown in Figure 4 
would be more than adaquate for eight ports. 


The 8-bit port with LEDs attached can be 
used as a debugging tool among other things. 
At a point in a program where you suspect 
trouble, and want to see the STATUS REGISTER 
for example, put a BREAK command. The last 
thing on the stack after a break is the status 
register contents. So, the interrupt vector 
should point to a program which pulls 

the last word off the stack and loads it at 
the address of the output port, STA $800F. A 
little panel could be made which indicates 
LED goes with which flag. 


The scheme just mentioned can obviously be 
varied to indicate the contents of any of the 
important registers. One could get very elegant 
and use four ports to indicate X, Y, accumulator 
and status register simultaneously. Better 
yet, use the information you have learned to 
display the contents of X,Y,A, and P while the 
computer is in the single-step mode. 


What's next? I hope to go into a keyboard input 
port in a little more detail, then lookata 
memory interface, unless I get some other 
ideas that is. Anyway»you ought to step out from 
among the trees to get a look at the forest by 
taking a long and studied look at Figure 1.1 of 
the MOS TECHNOLOGY HARDWARE MANUAL, the first 
figure in the book. A lot of the ideas we have 
been discussing are summarized there in a dia- 
gram of the microcomputer system as a whole. 


Parts list of components used for the experi- 
ments. 


1 AP Circuit Board 
(holds 8, 16-pin DIPs) 
coil, #22 wire 

LEDs 

‘Edge connector for KIM-1 
T4LS 145 

TALS 138 

T4LSO4 

T4LS 367 

T4LS75 

TALS 125 

T4LS76 

4.7K to 10K resistors 
DIP switches 


NM AO =| DOD = af) | = Oo 


An LS125 and LSO, in a bi-directional data bus buffering circuit. Only 

two data lines are shown buffered. Four LS125s would be required for 

all eight data lines. In this scheme the "write" buffers and "read" 
LS125 buffers are alternately disabled by the R/W line. Sometimes they are 


also disabled by device select pulses. 










To Memory, I/O Ports, 
Timers, etc. 






pinis +5 
pin 7 Gnd 


Fi 26 
eure + 5V ay 5V 


Dg > > DP 

p> > D1 buffering. 

> . > ne 
Bistable 

D3 > tateh > 13 

R/W > 

> Di 

D5 > > D5 

pe > Bistable p> D6 
Latch 

D7? > ° > D7 





\/ 





Device Select Pulse An &bit output port. DS, is from an 715138 and 
. LSO, inverter. The buffers could drive more ports. 
Figure 4. 
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Figure 3. 


Circuit to demonstrate data bus 


See text for details. 


6502 INTERFACING FOR BEGINNERS: 
AN ASCII KEYBOARD INPUT PORT 


Marvin L. De Jong 
Dept. of Math-Physics 

The School of the Ozarks 
Pt. Lookout, MO 65726 


introduction 


Many computer systems utilize a keyboard as an input device to 
get data or instructions from the outside world. KIM and TIM 
systems interface with teletype keyboards in which a 7-bit ASCII 
word is sent one bit at a time to the computer. This is called “serial 
input” and it is very common. Of course, the computer is capable 
of reading all 7 bits of an ASCII word in one byte. When operated 
in this way the keyboard input is just another location in memory, 
and the mode is sometimes referred to as “parallel.” We will 
assume that the ASCII keyboard makes all 7 bits available at once 
and that it produces a positive strobe signal when the ASCII data is 
stable. 


The following ingredients are necessary to implement a parallel 
keyboard input port. 


1) A device select pulse DS for the memory location of the 
keyboard 

2) Three-state buffer/driver connecting the keyboard to the data 
bus when the device select pulse occurs, but disabling it otherwise 

3) A means for the keyboard to communicate with the 
computer; that is, the keyboard must inform the computer that a 
key has been depressed 

4) A means to store the data until the computer reads it into the 
accumulator 


Previous columns have dealt with the generation of DS pulse; it 
will be assumed that the appropriate circuitry is available. A single 
Intel 8212 Eight-Bit !/O Port will be used as ingredients 2), 3), and 
4) above. 

The 8212 1/O Port 


A logic diagram for the 8212 is shown in Figure 1. The chip 
contains three subsystems; the control logic (including the DSi, 
DS2, MD, STB, CLR inputs and the INT output), the data latch, and 
the three-state buffers. It all looks confusing but the situation can 
be simplified quickly. CLR will be tied to logic 1 to disable it. MD 
(for mode) is tied to logic O in the input mode. Examine the 
AND-OR control logic carefully to see that this last step in effect 
connects the strobe (STB) to the C inputs of the 8-bit data latch. 
The keyboard strobe will be connected to STB. When the STB is at 
logic 1 the Q outputs of the data latch follow the DI(1-7) inputs 
from the keyboard. The data is latched (stored at the Q outputs) on 
the trailing edge of the strobe. A single key depression results in 
the ASCII data being stored in the 8212, with one bit left over. 


Note that the STB is also connected to the C input on the service 
request flip-flop. The trailing edge of the strobe latches a logic O 
into the Q output of the flip-flop because the D input is tied to 
logic O. The Q output is inverted, ORed, and inverted again to 
produce a logic O signal at INT whenever the strobe pulse occurs. 
The INT signal is used to communicate with the computer, telling 
it that data is available. Clearly it could be connected to the 
interrupt (IRQ or NMI) line on the 6502 to cause an interrupt. The 
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interrupt vector would point to a routine to read the keyboard, and 
would have to include a LDA KYBD instruction. 


The address of KYBD appears on the address bus during the third 
cycle of the LDA KYBD instruction. The address bus is decoded to 
produce a device select pulse DS for this address, and the device 
select goes to pin DS1 on the 8212. At the same time DS2 is 
brought to logic 1 by the R/W line from the 6502. When DS7 is low 
and DS2 is high the three-state buffers are enabled and the data 
from the keyboard is placed on the data bus to be read into the 
accumulator. 


SERVICE REQUEST FF 





\ 
{> osi~ 
» 
£> os2 (ACTIVE LOW 
[> o ie > = 
E> ste FV ourrut 
| SUFFER 
(> 01, , re ° s Le > 
DATALATCH | elit | 
[01 Pt 002[6> 
eal 
(Do, e+ iS 2% E> 
rpeih 
E>o, 1 He >t 9% i> 
ie 
fe>o1, He aS 2s E> 
are 
fid> 01g | nS D0, [17> 
Pali 
E> o1, = I! oo b> 
Hen 
_ Reset onivern | tall ? 
bec {ACTIVE LOW Lf sy 
Figure 1 


Logic diagram of the 8212 1/O Port. 


Also observe that the DS1.DS2 signal is connected to the “set” 
input on the service request flip-flop. This puts a logic 1 at the Q 
output which removes the interrupt request. The data has now 
been read, the interrupt cleared, and the computer is free to go on 
its way until another key is depressed and the entire process starts 
over. 


Experiment with the 8212 


A circuit to experiment with the 8212 is shown in Figure 2. You do 
not need an ASCII keyboard to construct this input port. The 74121 
produces the necessary strobe signal. The data switches shown in 





Figure 2 can be jumper wires. For a device select I simply used the 
K1 select from the KIM-1, with a pull-up resistor added since the 
KIM-1 does not provide pull-ups for these selects. Any address 
decoding scheme to get a device select will do. 






ste [> STROBE_PULSE rev 
+-5V bil > DEVICE SELECT CLR 
e C) 
TO DATA BUS +5v 
4 > og 
e > Di 
. > DL IoK 
10 
S212 ae T4121 
ve ~———> Pf ONE-SHOT 
PORT 7 > D5 iz 
19 ~, D6 - 
a > D7 
- 2 oF 5) — = 
= OL INT = To IRQ on NMI 
Figure 2. 


8-Bit Input Port. The 74121 may be used to strobe the switch 
settings into the 8212. The power connections to the 8212 are pin 


24 = t5V, pin 12 = GND. 


Connect the data output pins to the data bus of the 6502, but leave 
the INT disconnected. Connect the strobe output of the 74121 to 
the STB pin on the 8212. Write a short program to read the 8212 


and display the results on some output device. | used the following 
program for the KIM-1. 


0000 AD 00 04 BEGIN LDA  KYBD K1 SELECT ON KIM USED 
0003 85 FB STAZ DISP PUT IN DISPLAY CELL 
0005 20 IF IF JSR  SCANDS JUMP TO KIM MONITOR 
0008 4C 00 00 JMP BEGIN REPEAT 


Load the program and run it. Set the switch settings for the data 
input to the 8212 to some value. Note that the switch settings have 
no effect on the displayed value. Now initiate the strobe pulse by 
closing the switch to the one-shot. This clocks the data into the 
8212 and the computer will read it. Change the switch settings and 
initiate another strobe pulse. The data displayed should 


correspond to the switch settings. To initiate a strobe pulse the 
switch to the one-shot must first be opened, then closed. 


Now connect the INT to the IRQ on your 6502. Run the following 
program: 


0200 A2 00 BEGIN LDXIM $00 SET UP X AS COUNTER 
0202 4C 02 02 HERE JMP HERE WAIT FOR INTERRUPT 
0000 AD 00 04 INT LDA KYBD GET DATA FROM KYBD 
0003 85 10 STAZ MEM1 SAVE DATA 

0005 E8 INX BUMP COUNTER 

0006 86 11 STXZ MEM2 SAVE COUNTER 

0008 40 RTI RETURN FROM INTERRUPT 
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Be sure to set your interrupt vector to 0000, 17FE and 17FF on the 
KIM-1. Run the program starting at 0200. This is just an infinite 
loop which initializes the X register to zero. Now hit the strobe 
switch. Stop the program and examine the contents of 0010. It 
should be identical to the switch settings for the 8212 inputs. 
Examine 0011 where the X register was stored. Why doesn’t it read 
01 corresponding to the single interrupt we produced? Because the 
mechanical switch used to initiate the strobe pulse was not 
“debounced.” 


The program is very simple. The computer loops forever in the JMP 
HERE loop unless an interrupt occurs (IRQ pulled low by INT). 
When the interrupt occurs the computer jumps to the interrupt 


routine which reads the 8212 and stores the result in 0010. X is also 


incremented and stored in 0011. This was done just to give you a 


feeling for keybounce. The program then returns to the infinite 
loop where vou found it when you stopped the program. Change 
the switch settings on the 8212 then try the program again. 


Disconnect the INT from the 6502 and connect it to the DI(8) input 
(pin 22) on the 8212. We will now poll the input port to see if any 
data is ready. If a strobe pulse has occurred, then bit seven will be 
low because INT is connected to this bit. Once the 8212 is read, 
INT goes high as does bit seven. Here is a program to 
demonstrate polled service. 


0200 20 20 02 MAIN JSR INPUT SIMULATES "MAIN PROGRAM" 
0203 4C 00 02 JMP MAIN 

0220 ORG $0220 

0220 20 1F 1F INPUT JSR  SCANDS DISPLAY LAST INPUT DATA 
0223 2C 00 04 BIT KYBD TEST BIT 7 

0226 30 F8 BMI INPUT LOOP IF BIT 7 = 1 

0228 AD 00 04 LDA KYBD ELSE, GET NEW DATA 

022B 85 FB STA DISP STORE IT 

022D 60 RTS RETURN TO MAIN PROGRAM 


Play around with it changing switch settings and strobing data. 
Basically what it does is test bit-7 to see if any new data is 
available. MAIN is just a dummy program. It represents almost any 
program which uses a keyboard input. For example, my Micro-ADE 
assembler, disassembler, editor polls the keyboard for new data 
and my BASIC interpreter does the same thing. Both programs 
jump to subroutines which wait until new data has been entered 
from the keyboard, then return to the main program to process 


that information. | used JSR SCANDS in my INPUT subroutine so 
you could see the data on the KIM-1 display. Normally one would 
not use the KIM-1 display in an input routine. Rather he would 
“echo” the input with an output routine which would write the 
data on his CRT or teletype. 


If you have an ASCII keyboard with a positive strobe you can do all 
of these same experiments but with an actual keyboard input. 
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May I show you something in a Ready to Ware? 


by: Bertha B. Kogut 


REAL-TIME GAMES ON OSI 


David Morganstein 
9523 48th Place 


College Park, MD 20704 


This note discusses how real-time games ‘can be written for OSI 
Challenger systems which use a serial terminal run from the ACIA. 
The terminal in my system is an ADM-3A, but the same principal 
applies to any other. The sample program which is included does 
use the cursor control procedure of the ADM-3A, but it is a 
common enough terminal that many readers will be able to use it 
directly. The cursor control is accomplished in a one-line 
subroutine and can be changed to another procedure easily. 
My original goal was to write video games, but | did not have a 
separate TV monitor, 440 video board and A/D convertor to do 
this. Fortunately, there was a way!! First, I’tl discuss a procedure 
for polling the serial terminal keyboard and then the video display 
on the terminal. 

The basic idea was to use a PEEK command rather than an IMPUT 
statement. That way the program does not have to stop 
while the player ponders his response. This was the ONLY way to 
play Lunar Lander. The typical version gives the Captain unlimited 
time to ponder his response and minimizes crash landings. Several 
articles in BYTE and elsewhere talk about using A/D convertors 
and joysticks. Of course, this is a fine way to go, but the same 
effect can be created without the added hardware. 

The input byte from the ACIA appears at $FC01. To get a little 
appreciation for this, look at the ROM monitor routine starting at 
$FEOO, this is called INCH in the OSD documentation. (See Figure 
1.) By peeking at 64513 ($FCO1), you can read the byte sent by the 
terminal. The only problem with this is the parity bit. That is, the 
bytes indicating the numbers 0-9 do not increase smoothly but 
have bit 7 set or not to insure parity. You can solve this by 


FEOO AD OO FC START LDA 


FEO3 4A 

FEO4 90 FA 
FEO6 AD OJ FC 
FEO 29 7F 
FEOB 48 

FEOC AD 00 FC 
FEOF 4A 

FEIO 4A 

FE1I 90 F9 
FE13 68 

FEI4 8D 01 FC 
FE17 60 | 
FE18 20 O00 FE 
FEIB C9 52 
FEID FO 16 
FEIF C9 30 
FE21 30 F5 
FE25 C9 3A 
FE25 30 OB 
FE27 C9 41 
FE29 30 ED 
FE2B C9 47 


subtracting 128 when the PEEK (64513) is greater than 128. In the 
INCH routine this is accomplished with an AND #$7F, masking bit 
7. In this way, you get values from 48 to 57 for the keys 0-9. Now 
these values can be used to change the burn rate of the lunar 
lander. 

The program is fairly short and is generally self-explanatory. The 
polling is done in subroutine 5000. The test for 13 is needed since 
this is a null byte appearing before any keyboard entry has been 
made. As it now runs, extra boost can be given by typing a 
non-numeric. This should probably be prevented since it will 
allow a “sinking ship” to be saved, most unsporting!! 


The other interesting feature is the cursor control. This is 
accomplished in line 6000. The ADM-3A requires two control 
bytes be sent, CHR$(27) and CHR$(61), in order to set up the X and 
Y coordinates which follow. As given in the subroutine, the X 
value can be from 1 to 80 and the Y from 1 to 24, which correspond 
to the column and row (counting from the top left) of the position 
to be printed. Be careful when using this to not exceed these 
ranges. The cursor control is used to set-up a “lander control 
panel” and then update the “meter readings” as the play 
progresses. 

If your wondering what line 500 does, its used for timing. By 
adjusting the variable DE(lay), the speed of the game can be 
changed slightly. | was shooting for a twice per second update on 
the panel. Unfortunately, when the LOW FUEL WARNING comes 
on the timing changes. Well, you can’t have everything. (I’m sure 
somebody out there will figure out how to correct this....) 


$F COO 
LSRA 
BCC START 
LDA $FCOl 
ANDIM $7F 
PHA 
LDA $FCOO 
LSRA 
LSRA 
BCC $FEOC 
PLA 
STA $FCOl 
RTS 
JSR = START 
CMPIM $52 
BEQ $FE35 
CMPIM $30 
BMI $¢FE18 
CMPIM $3A 
BMI $FE32 
CMPIM $41 
BMI $FEJ18 
CMPIM $47 
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PRINTCHR$ (26) :X=25:Y=10:GOSUB6000 

PRINT"L UNAR LANDER “:Y=12:GOSUB6000 

INPUT"DO YOU NEED INSTRUCTIONS (Y/N) "3N$ 

IFN$="N"GOTO190 

PRINT :PRINT | 
PRINTTAB(10)"THIS IS A REAL TIME LUNAR LANDER SIMULATION. 
PRINTTAB(10)"TO PLAY, MERELY ENTER THE POUNDS OF 
PRINTTAB(10)"FUEL WHICH YOU WISH TO BURN BY TYPING A DIGIT (0-9). 
PRINTTAB(10)"THE NINE GIVES MAXIMUM BURN, SLOWING YCU DOWN AT THE 
PRINTTAB(10)"FASTEST RATE. A ZERO GIVES NO BURN AND LETS YOU FRE 
PRINTTAB(10)"FALL.":PRINT: INPUT" READY...TYPE GO ";N$ 
PRINTCHR$ (26) :¥=4:X=28:GOSUB6000:PRINI"TIME TO FUEL EXHAUSTION" 
X=20:Y=7:GOSUB6000:PRINT"BURN RATE" 

0:GOSUB6000 : PRINT" FUEL" 


=20:GOSUB6000 : PRINT" VELOCITY" : X=50 :GOQSUB6000 : PRINT" ALTITUDE 
=20:GOSUB6000 : PRINT" (FT/SEC )":X=50:GOSUB6000:PRINT" (FT)" 
=20:GOSUB6000:PRINT"ESTIMATED TIME TO LANDING " 
=] :GOSUB6000 :FORI=11079:PRINT"-"s sNEXTI 
X=1:GOSUB6000:PRINT"D " 
FORI=1107 :X=10*I : GOSUB6000:PRINTI; :NEXTI 
X=30:Y=24:GOSUB6000:PRINT"ALTITUDE (X10,000 FT. )":GOSUB6000 
VE=-100:MT$=" " sFU=10000 : AL=80000:DE=5 : BU=32 
FORT=1T010000 
IF T/2=ING(T/2) THENPRINTCHR$(7) ; 
VE=VE+( (BU-32)*25E8)/(25E8+AL*AL ) ) 
VE=INT(VE) 
AL=AL+INT(VE/2) 
IF AL<OGOTO3000 
IFFU<SOOTHENGOSUB2000 
FU=FU-BU/2 
IFFU<=OTHENFU=O : BU=O 
IFBU<=OTHENB$="NO BURN" :GOT0410 
B$=STR$( INT(FU/BU)). 
X=38 :¥=5:GOSUB6000: PRINTMT$ : GOSUB6000 : PRINTB$ 
X=21:Y=9 : GOSUB6000 : PRINTBU: X=50 : GOSUB6000 : PRINTFU 
X=22 :Y¥=14:GOSUB6000:PRINTVE :X=50:GOSUB6000:PRINTAL 
IF VE>=OTHENA$="ESCAPE" :GOTO460° 
A$=STR$CINT(AL/ABS(VE) ) ) 
Y=19:X=38 :GOSUB6000 :PRINTMT$ :GOSUB6000 :PRINTA$ 
TA=INT( (AL+500)/1000) : IFTA>SOTHENTA=80 
IF TAX1 THENTA=1 
Y=21:X=TA+1:GOSUB6000 
IFFU=0GOTOSO0 
GOSUB5000: IF Z=13G0T0500 
BU=12+4*(Z-48) 
IF Z=48 THENBU=O 
FORTI=1TODE:A=SIN(10) :NEXTTI 
VP=VE :AP=AL 
NEXTT 
FORJ=1T02 
X=36:Y=12:GOSUB6000:PRINT"LOW FUEL" 
Y=13:GOSUB6000 : PRINT" WARNING" 
A=SIN(10) 
GOSUB6000 :PRINTMT$ : Y=12 :GOSUB6000 : PRINTMT¢ 
A=SIN(10) 
NEXTIJ 
DE=I:RETURN 
SP=(VP+VE)/2 
IF SP<-25G0T03200 
PRINT:PRINT 
PRINTTAB(20)"CONGRATULATIONS, YOU TOUCHED DOWN AT A MERE " 
PRINTTAB(30)SP;" FT./SEC. A SAFE LANDING !!!" 
PRINT:PRINTTAB(20)" DO YOU WANT TC TRY AGAIN AND" 
PRINTTAB(20)" "s:INPUT"PROVE IT WASN'T LUCK "sN$ 
IFN$="N" THENRUN"'BEXEC#" 
GOT0190 
PRINTCHR$(26) 
N=-40 
FORI=1 TON: X=1+INT(79*RND(1)) sY=14INT(23*RND(1)) 


X=5 
Y=-8; 
Y=12: 
Y=13: 
Y=18: 
Y=22 
Y=23 


e 
e 
® 
® 


3225 GOSUB6000 :PRINTCHR$ (33+INT(15*RND(1) ) sGOSUB6000 :NEXTI 


X=20:Y=10:GOSUB6000:PRINT"YOU JUST BLEW A CRATER," 
Y=11:GOSUB6000:PRINTABS(VE);" FEET IN DIAMETER, ON THE 


3250 Y=12:GOSUB6000:PRINT"SURFACE OF THE MOON. BETTER TRY AGAIN... 
3260 Y=14:GOSUB6000: INPUT" READY (Y/N) ";N$ 

3270 GOTO190 | 

5000 Z=PEEK(64513) 

5005 IFZ=13THEN RETURN 

5010 IFZ>128THENZ<Z-128 :RETURN 

6000 PRINTCHR$(27) sCHR$(61) sCHR$(Y+31) sCHRE(X+31) 5 RETURN 
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650X OPCODE SEQUENCE MATCHER 


The motivation for writing this program stemmed 


from the fact that I have two machine code ver- 
sions of the same 650X assembler (ASM65 by Wayne 
Wall, dated 1 May 77 and 13 Jun 77 respectively) 
but I only have a listing of the older version. 
Both are just short of 4 K bytes long. I wished 
to make some local changes to the newer version 
and therefore needed to establish a means of 
correspondence between it and the listing. A 
disassembler is helpful here but not adequate 
because of discontinuities in the two codes 
which make forward references very difficult to 
correlate manually. 


I felt that when a program has been heavily mod- 
ified, many opcode sequence segments whould remn- 
ain constant even while their respective oper- 
ands differ. Therefore, what was needed was a 
program that would correlate and point to par- 
allel sequences of opcodes. 


Several assumptions were made in order to sin- 
plify the programming task. It was presumed 
that the basic order of appearance of major por- 
tions of the code would be the same since there 
seemed to be little advantage in shuffling the 
deck, as it were. Also, in order to minimize 
the effect of spurious matches, it was decided 
that only significant sequences need be reported 
and that no portion of the code would be report- 
ed as a match more than once. This position 
saves the program, for example, from reporting 
every possible LDA,STA opcode sequence pairing 
(or even all of those of the same address mode). 


Process Description 


As written, the scanning process of the matching 
program starts at the beginning of the two code 
strings, A and B, to be examined. Both initial 
positions are assumed to contian opcodes. An in- 
dex or pointer to the B string is, in effect, 
moved along B, from opcode to opcode, until a 
match with the current A string opcode is found. 
If no match is found before the B list is ex- 
hausted, the A pointer is moved to the next A 
opcode position while the B pointer is reset to 
its previous starting point. This general proce- 
dure is repeated until the A list is exhausted, 
.at which time the program terminates. 


When a match is found, both pointers are moved 
together along their respective lists, from 
opcode to opcode, until the opcodes fail to 
match each other. If the matching sequence 
is significantly long the size and the start 
and end of both segments is displayed. The 
search for additional matching segments is res- 
umed from the end of the just-reported segments 
so that their opcode elements cannot be matched 
more than once. 


If the completed sequence is not significant, it 
is not displayed and the search is resumed from 
where the short sequence began, as if there 
had been no match at all. 


The definition of significance refers to the 
minimum acceptable number of matching codes in a 
continuous sequence. The particular values used 
are left to the user. While our experience has 


shown a minimum value of eight to be useful, the 
actual values should reflect the length of the 
code being examined and the degree to which it 


has been hacked up. 


The effect of a too-low significance value often 
results in a fewer number of matches being rep- 


J. S. Green 
807 Bridge Street 
- Bethlehem, PA 18018 


orted, rather tnan more as one might expect. 
This is because a spurious match of short segn- 
ents can have the effect of masking out longer 
possible matches which would use the same code 
items were they still available. 


Operation 


To operate the opcode matching program both 
lists of code must be in memory. They may be in 
ROM. They need not be at their operating addr- 
ess. (Indeed, if they have the same address at 
least one must be somewhere else anyway). Since 
the matching program reports storage, rather 
than operating addresses it is useful to choose 
Storage addresses that have some degree of corr- 
espondence to the operating addresses, e.g., 
code operating at $21E3 might be stored at 
$4153. 


Enter initial values (all in hex LO,HI) as fol- 
lows: 


$0000 , 01 Significance value 
$0002 , 03 Start of list A 
$0004 ,05 Start of list B 
$0006 ,07 End of list A 
$0008 ,09 End of list B 


Only the starting address will be modified dur- 
ing program execution. The program will init- 
ially assume that the value at the start locat- 
ion is an opcode. 


To run the program enter at OPMACH. As written, 
it will terminate by jumping to the monitor from 
ENDO1. The routine may be made into a subrout- 
ine by placing an RTS here. 


Since the program cranks the data a lot, there 
will be what seem to be long pauses between out- 
puts. The program requires about 2 minutes to 
compare the aforementioned assemblers. 


Results 


Several sets of results, using significance val- 
ues of $06, $08 and $0A are shown below. In ord- 
er to have both versions of code resident at the 
same time, it was necessary to store one ver- 
sion, at address $4000. 


About 64 percent of the code of the two versions 
of the assembler correlate when a significance 
value of 8 is used. This is a reasonable per- 
centage when one considers the fact that the 
non-significant, non-reported, sequences are 
easily identified since they lie in the same 
relative position between reported sequences. 


An extensive manual comparison of the two code 
sets was made. (So much for the work-saving as- 
pects of the program!) No false matches were 
identified when a significance value of 8 was 
used. 


Variations for Text Processing 


Interesting variants of the program are pos- 
sible. By altering or replacing the list point- 
er increment routines, AINC and BINC, the nature 
of the list pointer incrementation may be chang- 
ed from the current conditional increment based 
on opcode to some other condition or to a con- 
stant such as plus one. 


With a constant increment of one, the matching 
program may be used to compare sequences of any 
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textural material in a somewhat crude, one for 
one fashion. 


By having separate increment subroutines when 
seeking to locate the start of a matching seg- 
ment in contrast to the incremental routines 
used when “running-out" a sequence, some fairly 
powerful text processing capabilities may be ob- 
tained at little additional cost. For example, 
when seeking to locate matching segments in nat- 
ural language text, we might wish to start with 
the initial character of alphabetic strings, 
i.e., words. Therefore, by incrementing past 
all non-alphabetic characters to the next alpha- 
betic character we can both speed up the process 
and insure that our sequences start with (what 
we have operationally defined as) words. 


Similar techniques may be employed in the (now 


=e wo NO BO VE RS 


J. S. 


NOTE: 


™~=e te 78 BO MS NE UO OME 


-LOC $0960 

f 
00990 82 OB SIGNIF: .WORD 
9002 BO 0B ABASE: .WORD 
06004 BO OO BBASE: .WORD 
VOG6 BB OH AMAX : . WORD 
0008 69 OB BMAX : »WORD 

; OTHER 
QUVBA BY OV APOINT: .WORD 
BH8C 0B Bb BPOINT: .WORD 
Q9@E BO OO ASAVE: - WORD 
6810 08 YO BSAVE: .WORD 
8812 HD OG COUNT: .WORD 


® 
? 
e 
g 


COPYRIGHT ,1978 
COMMERCIAL RIGHTS RESERVED 
EXCEPT AS NOTED BY 


GREEN. 
807 BRIDGE STREET 
BETHLEHEM. PA 18618 
(215) 867-9924 


EXTERNAL SUBROUTINES (IN 


separate) within sequence increment routines to 
ingore, (i.e., increment past,) any non-alphabet- 
ic characters such as control characters, nun- 
bers, punctuation or whatever we like. Thus we 
are able to obtain a far more flexible and hope- 
fully more useful definition of a matching seq- 
uence. 


Conclusions 


The general techniques illustrated here are both 
effective and useful. The conditional matching 
approach has not been fully explored, but it is 
clear that it has interesting possibilities in 
the area of text processing. In the present 
application, correlating two lenghty strings of 
machine code, the approach made practical what 
otherwise would have been a difficult and dull 
task. 


**** QPCODE SEQUENCE MATCHER **** 
VERSION 1.04, | 


18 AUG 78 


COMPUTER SYSTEMS 


THE BYTCNT SUBROUTINE IS FROM 
H. T. GORDON IN DDJ, #22 P.5. 
(COPYRIGHT BY PEOPLE'S COMPUTER COMPANY) 


USER DEFINED VARIABLES (LO,4HI) 


; SIGNIFICANCE 
START OF LIST A 
;START OF LiST B 
7;END OF LIST A 
;END OF LIST B 


PROGRAM VARIABLES 


;LIST A POINTER 

;LIST B POINTER 

;LIST A SEQUENCE START 
;LIST B SEQUENCE START 
;SEQUENCE COUNTER 


KIM) 


-DEF START=S1C4F ;MONITOR RETURN POINT 
-.DEF CRLF=S1lE2F ;CARRIAGE RETURN 
-DEF OUTCH=51EA@ ;DISPLA A CHAR 
.DEF PRITBYT=$1E3B ;DISPLA HEX BYTE 
.DEF OUTSP=S1E9E ;DISPLA A SPACE 
s 

.LOC $8280 

9209 20 2F 1E OPMACH: JSR CRLF 

9203 A2 29 LDX# $29 ;SIGN + HEADER COUNT 

@265 BD 4F 93 OPMCH1: LDAX SIGN ;DISPLAY HEADER 

6288 20 AM 1E JSR OUTCH 

929B CA DEX 

920C 10 F? BPL OPMCH1 

Q20E AS 91 LDA SIGNIF+1 

$218 28 3B 1E JSR PRIBYT ;DISPLAY SIGNIF df 

0213 A5 0d LDA SIGNIF 

0215 28 3B 1E JSR PRTBYT ;DISPLAY SIGNIF LO 

@218 20 2F 1E JSR CRLF 

$21B 20 3B 93 JSR BASPNT ; POINTERS=BASES 
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Q21E 
9220 
0222 
$224 
0226 
6228 
022A 
@22D 
022F 
6231 
6233 
6235 
$237 
9239 
$23B 
923D 
023F 
9249 
6242 
0244 
8246 
0248 
924A 
824C 
9245 
9250 
6252 
8254 
6256 
2258 
925A 
g25C 
Q25E 


9260. 


9262 
9265 
8268 
O26A 
926C 
G26E 
9270 
9271 
9273 
9275 
Q277 
9279 
027B 
927D 
0280 
9283 
9286 
8288 
928B 
928D 
O28F 
9291 
9293 
0296 
8299 
929C 
929D 
B29F 
W2Al 
92A3 
@2A5 
®2A? 
Q2A9 


Q2AC . 
B2AF } 


92Bl 
02B4 
92B/7 


G2 


D2 
92 


G2 
93 
G2 


93 


62 
G2 
G2 


G3 
2 


03 
02 
ic 


DOl: 


IF1ls 


THEN1L: 


THNIA: 


DO2: 


EXP21: 


EXP22: 


ENDO2 : 


IF2: 


THEN2: 


ELS2: 


ENDIF2: 


ELS1: 


ENDIF1: 


IF3: 


THEN3: 


ENDIF3: 
ENDO]: 


ABASE+1 
AMAX+1 
IFl 
ABASE 
AMAX 
IFl 
ENDO1] 

Q 
APOINT 
BPOINT 
ELS1 
COUNT 
COUNT +1 
3 
APOINT 
ASAVE 


THNIA 

9 

APOINT 
BPOINT 
ENDO2 
APOINT+1 
AMAX+1 


ENDO2 
BPOINT+1 
BMAX+1 
EXP22 
BPOINT 
BMAX 
ENDO2 
AINC 
BINC 
COUNT 
DO2 © 
COUNT+1 
DO2 


CCUNT+1 
SIGNIF+1 
ELS2 
COUNT 
SIGNIF 
ELS2 
REPORT 
PNTBAS 
ENDIF2 

1 

BASPT1] 
BSAVE 
BPOINT 
BSAVE+1 
BPOINT+1 
BINC 
ENDIF1 
BINC 


BPOINT+1 
BMAX+1 
ENDIF3 
BPOINT 
BMAX 
ENDIF3 
BASPNT 
AINC 

] 
PNTBS1 
DOL 
START 
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;BR IF WHOLE JOB NOT DONE 


7>BR IF WHOLE JOB NOT DONE 
sHERE If WHOLE JOB DONE 
s;DOES CURRENT PAIR MATCH» 


7;BR IF NOT THE SAME 
;HERE ON SAME 
;CLEAR THE COUNTER 


; SAVES=POINTERS 

7;DO TILL NOT THE SAME 
7;BR IF NOT THE SAME 
7;BR IF LESS THAN 

7;BR TO ENDO 

;BR IF LESS THAN 


?BR TO ENDO IF LIMIT REACHED 
;MOVE A POINTER TO NEXT A OPCODE 
;MOVE B POINTER TO NEXT B OPCODE 


7;BR ALWAYS TO TOP OF DO 
;A WASTED BYTE FOR “STRUCTURE" 


;BR IF NOT SIGNIF 


;HERE ON SIGNIF, OUTPUT RESULT 
; POINTERS=BASES 


; APOINT=ABASE 


sANOTHER SOP TO “STRUCTURE” 
;BR IF NOT DONE 


7;BR IF NOT DONE 


SUBROUTINES FOLLOW 


MOVE TO NEXT A OPCODE 


yp ~e me ~O NO 


G@2BA A2 99 INC: LDX# 9 
@2BC Al @A LDAX@ APOINT sGET OPCODE 
Q2BE 20 E2 92 JSR  BYTCNT ;CALCULATE SIZE 
Q2Cl 8A TXA sRESULT RETURNED IN X 
82C2 18 CLC 
92C3 65 OA ADC APOINT ;ADD RESULT TO POINTER 
B2C5 85 BA STA  APOINT 
92C7 A5 OB LDA APOINT+1 
@2C9 69 00 ADC# @ } 
92CB 85 6B STA APOINT+1 . 
@2CD 60 RTS 
; MOVE TO NEXT B OPCODE 
B2CE A2 6@ BINC:  LDX# @ 
92D Al Cc LDAX@ BPOINT ;GET OPCODE 
$2D2 20 E2 62 JSR  BYTCNT ;CALCULATE SIZE 
@2DS5 8A TXA ;RESULLT RETURNED IN X 
82D6 18 CLC 
62D7 65 OC ADC BPOINT ;ADD RESULT TO POINTER 
22D9 85 @C STA  BPOINT 
82DB AS @D LDA BPOINT+1 
Q2DD 69 60 ADC# 9 
@2DF 85 OD STA BPOINT+1 
Q92E1 60 RTS 
; CALCULATE SIZE OF OPERAND (+1) 
; BY H. T. GORDON (SEE DDJ #22. P.5) 
Q2E2 A2 01 BYTCNT: LDX# 1 
92E4 2C E8 92 BIT  BYTCNT+6 ;TEST BIT 3 
@2E7 DO 08 BNE  HAFOP sALL X(8~F) 
B92E9 C9 20 CMP# $290 
Q@2EB FY OE BEQ ‘THREE sONLY $20 
Q2ED 29 9OF AND# S9F ;BITS 5.6 OUT 
Q2EF DX OB BNE ‘TWO sALL EXCEPT (8,4.6)9 
O2F1 29 15 HAFOP: AND# $15 ;RETAINS ONLY BITS 0,2,4 
G2F3 cy @1 CmMp# 1 
92F5 FO 05 BEQ ‘WO 7X (9,B) 
B2F7 29 05 AND# 5 BIT 4 OUT 
@2F9 FO 2 BEQ ONE 7X(8,A) AND (@.A,6)9 
O2FB ES THREE: INX ;RESID. X(9~F) 
Q2FC E8 TWO: INX 
@2FD 62 ONE: RTS 
: DISPLAY SIGNIFICANT SEQUENCE LIMITS 
@2FE A2 21 REPORT: LDX# 1 
0309 BS 12 REPT1: LDAX COUNT sOUTPUT EXTENT OF MATCH 
9362 20 3B 1E JSR  PRTBYT 
6395 CA DEX 
9336 10 F8 BPL REPT1 
; OUTPUT MULTIPLE SPACES 
9308 22 31 03 JSR ouTse4 >FOUR SPACES 
@309B A2 99 LDX# @ 
930D BS OF REPf2: LDAX ASAVE+1] sOUTPUT START. AND 
O30F 20 3B 1E JSR  PRTBYT ; END ADDR OF 
9312 BS GE LDAX ASAVE > BOTH SEGMENTS 
0314 20 3B 1E JSR  PRTBYT 
9317 20 34 63 JSR  OUTSP2 
031A B5 OB LDAX APOINT+1 
631C 20 3B 1E JSR  PRIBYT 
O31F BS 6A LDAX APOINT 
6321 20 3B lE JSR PRTBYT 
0324 2H 31 93 JSR OouTSP4 
$327 E8& INX 
6328 E8 INX 
9329 ED 03 CPX# 3 
Q32B 30 E@ BMI REPT2 
Q32D 20 2F 1E JSR CRLF 
8330 60 RTS 
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6331 20 34 63 OUTSP4: JSR OUTSP2 74 SPACES 


0334 26 9E 1E OUTSP2 JSR OUTSP ¢;2 SPACES 
0337 20 9E 1E JSR OUTSP 
033A 69 RTS 
; MOVE ABASE & BBASE TO APOINT & BPOINT 
633B A2 03 BASPNT: LDX# 3 
933D BS @2 BASPT1 LDAX ABASE 
O633F 95 OA STAX APOINT 
9341 CA DEX 
0342 10 FY BPL BASPT1 
9344 69 RTS 
; MOVE APOINT & BPOINT TO ABASE & BBASE 
9345 A2 83 PNTBAS: LDX# 3 
9347 BS OA PNTBS1: LDAX APOINT 
0349 95 @2 STAX ABASE 
934B CA DEX 
934C 19 FI BPL PNTBS1 
W34E 68 RTS 
SIGN: -ASCII ' = FINGIS ' 
O34F 29 
9358 3D 
0351 29 
9352 46 
9353 49 
0354 4E 
0355 4? 
0355 49 
9357 53 
0358 20 
9359 28 
HEADER: .ASCII ‘OT MORF OT MORF EZIS 
O35A 4F 
935B 54 
935C 20 
935D 220 
O35E 29 
O35F 4D 
6360 4F 
9361 52 9379 . 
0362 46 6600 SIGNIF O2BA AINC 
9363 29 9682 ABASE @2CE BINC 
0364 26 9004 BBASE 271 IF2 
0365 28 0006 AMAX 8286 SLS2 
6366 29 $808 BMAX Y2BA AINC 
8367 29 QQ@VA APOINT Y2CE BINC 
0368 4F Q28C BPOINT 0271 IF2 
9369 54 QOG9E ASAVE $286 ELS2 
Q36A 20 8618 BSAVE 927D THEN2 
636B 20 6812 COUNT @2FE REPORT 
@36C 28 1C4F START 8345 PNTBAS 
036D 4D LE2F CRLF 9296 ENDIF2 
O36E 4F LEA6® OUTCH 33D BASPT] 
O36F 52 LE3B PRTBYT 929C ENDIF] 
9370 46 LEYE OUTSP 029D IF3 
O371 20 $2080 OPMACH 92B4 ENDIF3 
0372 26 6205 OPMCHI @2A9 THEN3 
9373 20 B34F SIGN 0347 PNTBSI] 
0374 29 633B BASPNT Q@2E2 BYTCNT 
0375 45 ¥21E DO] O2Fl HAFOP 
0376 5A 22D IFl Q2FB THREE 
@377 49 §2B7 ENDOL Q2FC TWO 
0378 53 9299 ELSI ¥2FD ONE 
9235 THEN $300 REPT 
O23B THNLA 8331 ouTse4 
- END 9242 DO2 936D REPT2 
270 ENDO2 8334 OUTSP2 
@256 EXP21 635A HEADER 


@262 EXP22 
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i a ot oo) 


SIZE 
6926 
0007 
0096 
9006 
OOGA 
‘900B 
8008 
GO7A 
0008 
0919 
004D 
OO2E 
6035 
OBBC 
6196 


SIZE 
6926 
003D 
0929 
O91F 
QNDE 
0946 
0087 
8029 
9126 
@04C 
0087? 
QOOE 
GBBC 
OO7A 
6008 
6019 
884D 
WO2E 
9035 
QHBC 
9987 


SIZE 
0026 
983D 
0020 
OO1F 
OOOE 
0846 
0859 
9126 
0¥W4C 
9089 
200E 
O2BC 
OO7A 
W81D 
@84D 
OY2E 
0635 
BBBC 
00389 


FROM 
2000 
2069 
2699 
2224 
2237 
274E 
279D 
28D1 
29BF 
29DB 
2A17 
Z2ACB 
2B6E 
2BF2 
2CE2 


FROM 
2908 
206C 
20F 3 
213C 
2187 
Z21AA 
2275 
23A8 
23C8 
25F1 
26Cl 
27C8 
27E5 
28D1 
29BF 
29DB 
2Al7 
2ACB 
2BO6E 
2BF2 
2DE5 


FROM 
2090 
206C 
20F3 
213C 
2187 
Z21AA 
2271 
23Cb 
25F1 
26BC 
27C8 
27E5 
28D1 
29D1 
2Al7 
2ACB 
2B6E 
ZBF2 
2DEi 


TO 
2052 
2978 
28A5 
2234 
224D 
2761 
27AC 
29BE 
29D1 
2A9D 
2AC6 
2B33 
2BE5 
2C04 
2F01 


TO 
2052 
20FO 
213C 
2188 
21A? 
224D 
2394 
23BB 
25E6 
269F 
27Cl 
2782 
27F9 
29BE 
29D1 
2A9D 
2AC6 
2B33 
ZBE5 
2C04 
2FO1 


TO. 
2652 
20F9 
213C 
2180 
21A? 
224D 
2394 
2556 
269F 
27C1 
27E2 
27F9 
29BE 
ZAG6D 
2AC6 
2B33 
2BE5 
2004 
2F01 


FROM 
4008 
4093 
42C2 
437C 
4784 
479D 
47BB 
47CF 
48BC 
48CE 
492D 
49E1 
4A49 
4ACD 
4B27 


FROM 
4900 
4952 
40D6 
4122 
416D 
4198 
4258 
438F 
43A2 
458 
4692 
479D 
47BB 
47CF 
48BC 
48CE 
492D 
49E1 
4A49 
4ACD 
4C2A 


FROM 
4006 
4952 
49D6 
4122 
416D 
4198 
4254 
43A2 
45C8 
468D 
479D 
47BB 
47CF 
48C4 
492D 
49E1l 
4A49 
4ACD 
4C26 


TO SIGNIF 


4652 
40A5 
42CE 
438C 
479A 
47Bd 
47CA 
48BC 
48CE 
4900 
49DC 
4A49 
4ACO 
4ADF 
4D46 


TO 
4952 
49D6 
A4l1lF 
4166 
418D 
423B 
4377 
43A2 
45C8 
4676 
4792 
47B7? 
47CF 
48BC 
48CE 
4906 
49DC 
4A49 
4ACO 
4ADF 
4D46 


TO 
4952 
49D6 
4l1F 
4166 
418D 
423B 
4377 
45C8 
4676 
4792 
4787 
47CF 
48BC 
4966 
49DC 
4A49 
4ACO 
4ADF 
4D46 
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Note: 


items tagged with 
an 'x! 
false matches. 


CASSETTE TAPE CONTROLLER 


The ideal tape storage facility for micro-sys- 
tems would be one in which the micro has comp- 
lete control of all tape movement and play/ 
record functions without “operator intervention" 
e.g. pushing buttons. Unfortunately most of us 
have budgets which only allow use of lower cost 
audio cassette units. Short of massive mechan- 
ical rebuilding, these units can only be extern- 
ally controlled with a motor on/off function 
after the "operator" has set the proper record/ 
play keys. All too often we goof and press the 
wrong button, have to move cassettes from one 
unit to another, or simply forget to set up the 
units at the right time. 


The Cassette Tape Controller (CTC) described 
below offers a reasonably inexpensive capabil- 
ity as a compromise in the provision of automat- 
ic tape control for a KIM-1 system. CTC is a 
combination of a seven-IC hardware board and 
supporting software routines. It was developed 
to control two Pioneer Centrex KD-12 cassette 
units. The concept could be extended to more 
than two units or perhaps other models. 


A summary of the functions provided are: 


(1) Provide software-driven capability to start 
and stop a specific tape recorder by opening/ 
closing the "remote control" circuit of the re- 
corder (normally controlled by a switch on an 
external microphone). 


(2) Provide software-driven capability to route 
the input (record) or output (playback) signals 
as appropriate. 


(3) Provide override manual controls (toggles) 
to also accomplish (1) and (2), above. 


(4) Light panel indicators (LEDs) associated 
with the play or record functions selected for 
each cassette unit as set by software or manual 
controls. 


(5) Sense whether the selected tape recorder is 
set to play or record, or neither. 


(6) Sense the position of auxiliary toggles for 
setting software options, etc., (option 
switches. 


(7) Light indicators (LEDs) associated with the 
auxiliary toggles for operator communications. 


(8) Provide an audible "beep" under software 
control. 


CTC General Description 


The Cassette Tape Controller is a hardware/soft- 
ware facility to assist in the operation and use 
of audio cassette tape recorders for data read/ 
write functions. The hardware provides the int- 
erface from a KIM-l to two Pioneer Centrex KD-12 
tape recorders. Besides the cassette input and 
output lines from KIM-1 four other lines (bit 
ports) are required for software control of the 
“hardware. 


The software and hardware control the recorder's 
motor circuits and determine if the appropriate 
manual keys on the recorder are set correctly. 
The software can provide alternative action 
(alert the operator or try another unit) in the 
case of improperly set keys. 


The specific software illustrated below is writ- 
ten to "search" for a unit which is set in eith- 
a "read" (playback) or "write" (record) mode. 


Fred Miller 
7 Templar Way 
Parsippany, NJ 07054 


If none is found in the desired mode, an audible 
tone is sounded and the search is continued. 
The visible indication of each of the “read" or 
"write" LEDs blinking along with the audible 
tone provides the operator with a quick clue as 
to the erroneous settings. If the appropriate 
tapes are "mounted" the operator simply depress- 
es the “requested" cassette unit key. Subse- 
quent references by the software would locate 
the preset unit without communicating to the 
operator. 


Additional facilities are built into the CTC 
hardware/software at little extra cost. These 
include the separately accessible audible tone 
and two option toggles with accompanying panel 
indicator LEDs. The toggles can be used for set- 
ting options selected by the operator and test- 
ed by the software. The associated indicators 
can also be used for some optional communication 
purposes. A third switch (momentary toggle or 
pushbutton) is used as a "break" command for 
software testing. A layout of the related hard- 
ware control panel is shown in Fig. 1. 


Queue 


READ wRITE 


© O@ © O 


UNIT | UNIT 2 


CASSETTE TAPE CONTROLLER 


ue J 


OPTION A BREAK 


ar) 









Figure 1. 


Suggested Panel Layout 
for Cassette Tape Controller 


Hardware Description 


A key to the logic of CTC is the ability to sen- 
se actual cassette unit key settings. By sens- 
ing voltage levels at two externally accessible 
points in the KD-~12 circuitry it is possible to 
determine one of the following states: 


(1) unit set for read (playback) 
or fast forward or rewind 


(2) unit set for write (record) 
(3) no keys depressed 


The circuit shown in Fig. 2 uses two ICs to ad- 
dress a function, one to enable and the other to 
sense results of enabling. This logic is fur- 
ther described in the comments accompanying the 
software source listing. Four non-critical DPDT 
relays are used to allocate signals and control 
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motor circuits. The additional circuits, (1) 
pulse an audible tone generator, (2) light LED 
indicators, or, (3) sense toggle switch posit- 
ions all depending upon addressed functions. 


Three bits (PB 0-2) from KIM-l Applications Port 
B are used to address the functions. Another 
bit line (PB 3) of the same port is used to feed 
status back to KIM-1. 


The KD-1l2 units are operated from external batt- 
ery power (continually trickle-charged) to pro- 
vide the most stable unit operation. HYPERTAPE 
speets are extremely reliable in this configur- 
ation. 


Software Description 


The controlling software consists of a series of 
routines which are accessible from user programs, 
The software shown in Fig. 3 is designed to 
"seek out" a cassette unit which is set for a 
given function, e.g., read. A brief study of the 
routines will show how this can be replaced or 
amended to select only a given cassette unit for 
a specific function. The additional routines 
are provided for "testing" the optional toggle 
Switches, etc. Many of the routines are useful 
for other than tape cassette control, e.g., 
a JSR to BELL provides an audible "beep". 
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Conclusion 


The hardware and software described have been 
working very satisfactorily on the author's 
system for well over a year. The CTC software 
(along with tape and record I/0 routines based 
on the HYPERTAPE routines) have been committed 
to EPROM (2708). Access to this capability is 
easy and provides convenient operation of tape 


file processing from user software programmed in 
any language used on the KIM-1 micro (BASIC, 
Assembler, HELP, etc.). Although the operator 
still must press the keys on the cassette units, 
the CTC system can save many a “rerun" or clob- 
bered files due to careless operations. 
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00103 
00203 


0030s - 


0040: 
00 50: 
0060: 


00703: 


00803 
0090: 
0100: 
0110: 
0120: 
01303 
0140: 
01503 
01603 
ID=02 


0010: 
00203 
00303 
0040: 
0050: 
00603 


00703: | 


0080: 
‘00903 
01003 
0110s 
01203 
0130: 
0140: 
0156: 
0160: 
0170: 
0180: 
0190: 
02008 
02108 
0220: 
ID=03 


00103 
0020: 
00303 
0040: 
0050: 
0060: 
0070: 
008 0:3 
0090: 
0100: 
0110: 
0120: 
0130: 
0140: 


0150: 


0160: 
0170: 
0180: 


0200 


0215 
0218 


O21B 
O2iDdD 
0220 
0223 
0226 
0228 
022A 


‘O02eB 


022D 
0230 


0233 
0235 
0238 
023B 


20 
4C 


33 
SC 


02 
1E 


17 


17 


17 
02 


17 
17 


KXFTAP ORG 


$0200 


aK fe Ke oie 3ic oie aie aie ak ak ie ok aie 2k ae oe ae 2 2K 


* CASSETTE TAPE 
* CONTROLLER (CTC) * 
* BY FeMILLER 
cs 
* 


* 
a 


* 


vs 


ake fe ake akc aie akc 34 ic ae ae ac akc ate ake ke ake oie 2 ok 


kkk KIM & ZERO PAGE PARAMETERS **x 


PBD 
PBLL 
TPFCT 
INIT 


* Hk 


$1702 
$1703 
$OQEF 
$1 ESC 


*** TAPE CASSETTE READ ROUTINES **x 


RDTAPE CLD 
LDAIM $02 
JSR  TPTEST 
BEQ CREAL 
LDAIM $04 
JSR  TPTEST 
BEQ CREAD 
JSR BELL. 
BNE RLTAPE 

CREAD NOP 


JSR 


RDLEXIT JMP 


x«*x CASSETTE 


TPTEST STA 


BELL 


CTLOFF 


L.DAIM 
STA 
STA 
RT.S 
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TEST FOR UNIT#! READY 
FOR READ? 

eee YES 

eoeeoNOs UNIT #2 READY? 


e306 YES 
seeNO,s SOUND SIGNAL AND 
TRY AGAIN. 


ROUTINE FOR REALING TAFE 
GOES HERE 


CTLOFF TURN OFF CASSETTE MOTOR 


INIT 


AND RETURN VIA KIM INIT 


SUPPORT RTNS *** 


TPFCT 
PBL 
CELAY 


PBL 


$OF 
TPFCT 


$00 
PEL 
DELAY 


$07 
PBCD 
PBC 


SAVE UNIT/FCT 
PORT B CONTROL DATA 
ALLOW RELAY SETTLE 
CK BITS 0-3 = TO 
ORIGINAL UNIT/FCT 


EQUAL MEANS UNIT READY 
ZERO FCT SETS TONE 
WAIT, RESET & EXIT 
BITS 0-2 TO O/P 


SET TO FCT#7 COFF) 


0190: 
0200: 
02103 
02203 
02303 
0240: 
0250: 
0260: 
0270: 
0280: 
0290: 
0300: 
0310: 
03203 
ID=04 


00103 
0020: 
0030s 
00403 
00 503 
00603: 
0070: 
00803 
0090: 
0100: 
01103 
0120: 
0130: 
0140: 
01 503 
0160: 
0170: 
01803 
01903 
0200: 
02102 
02203 
TID=05 


0010: 
00203 
00303 
0040 
00503 
0060: 
0070: 
0080: 
0090: 
0100: 
01103 
0120: 
0130: 
0140: 
ID= 


023C 
O23E 
0241 

0244 
0246 


0247 
O24A 
O24B 
O24E 
0250 
0252 


0253 


0254 
0255 
0257 
025A 
025C 
O2S5E 
0261 


0263 


0266 


0268 


0269 
O26C 


C26F 
0271 


0273 
0275 
0276 
0279 
O27A 
027D 
O27E 
0280 
028 1 
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AC 


17 
17 


02 


17 


02 


02 


02 


33 
SC 


02 
LE 


06 
02 


05 
33 02 
1B 02 
01 


33 O02 


DELAY LDAIM 


BRKCK 


STA 


SEC 


BKEXIT RTS 


mek CASSETTE 


WRTAPE CLD 


LDA 
JSR 
BE@Q 


IM 


LDAIM 


JSR 
BEQ 
JSR 


BNE 


CWRITE NOP 


*x*k ALT¢SW TEST & LIGHT *** 


JSR 
JMP 


SFF 

$1707 
$1707 
DELAY 


SET TIMER TO 1/74 


+05 


SEC 


CTLOFF ENSURE OFF 


PBL 
$08 


BKEXIT 


BIT 3 HIGH MEANS NO BRK 


NO CARRY MEANS NO BRK 


WRITE ROUTINE **x 


$01 


TPTEST 
CWRI TE 


$03 


TPTEST 
CWRITE 
BELL 
WRTAPE 


TEST FOR UNIT#1 READY 


FOR WRITE? 

ee eYES 

eeeNO, TEST UNIT#2 

0 ee YES | 

eeeNOs SOUND SIGNAL AND TRY 


AGAIN 


CASSETTE WRITE ROUTINE 
GOES HERE 


CTLOFF TURN OFF MOTORS 
AND RETURN VIA KIM 


INIT 


TSTSWA LDAIM $06 


TSTSWB 


TSTX 


BNE 


LIA 
PHA 
JSR 
PLA 
JSR 
CLC 
BNE 
SEC 
JMP 


IM 
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TSTSWB 


$05 


CTLOFF 


TPTEST 


TSTX 


CTLOFF 


SET FOR ALT+eSW #1 


+02 


SET FOR ALT.»SW #2 
SAVE CODE 

INITL PORTS 
RETRIEVE CODE 
AND TEST SW 


IF NOT EQUAL 
MEANS SW IS NOT SET 


CARRY MEANS SW 


° ON * 


EXPAND YOUR 6052-BASED TIM MONITOR 


Russell Rittimann 
2606 Willow Crest 
San Antonio, TX 78247 


This modification to TIM will expand its command set such that 
ROM resident programs or routines can be executed from within 
TIM. Since | had several programs in PROM (BASIC, assembler, 
etc.) that were used regularly, | wanted an easy way to execute 
them without the usual sequence of: displaying the registers; 
setting the program counter; and finally typing “G”. Now my TIM 
monitor will recognize a “B” from the keyboard and immediately 
put me into BASIC, and similarly recognize other commands for 
the other programs. 


The TIM manual from MOS TECHNOLOGY included a complete 
listing of the monitor program. The sequence for recognizing a 
command in TIM was: output the prompting “.”; read the 
command; look the command up in a table; and then execute the 
command by indirectly jumping to the address of the routine that 
corresponded to the command. This sequence of instructions is 
located from 708F(16) to 70B4(16) in the TIM monitor. All | needed 
to do is intercept the command and check it against my own table 
before letting TIM have its turn at it, which presented a problem 
since the TIM program is in ROM and can’t be changed. 
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ot 
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<+———- 6502 ADPRESS BUS ———> 


Figure 1 


What I did was to disable TIM for a “window” of 16 locations from 
7090(16) to 709F(16) and enable a DM8578 32 x 8 PROM at these 
same locations. Figure 1 shows the schematic for the PROM and 
address decoding. Note, that the 3-input NAND gate connected to 
CS2 of TIM, limits the monitor to between 6000(16) and 7FFF(16). 
This was not shown in the TIM manual. 


| programmed the first half of the 8578 identical to the 16 locations 
in TIM starting at 7090(16) except for locations 4, 5, 6 
(corresponding to TIM’s 7094(16) - 7096(16).) In TIM, these 3 
locations are a jump to subroutine to read a character from the 


‘keyboard. Instead, | put a jump to location CC00(16) where | had a 


2708 EPROM decoded. The program in the 8578 is shown in Figure 
2. 


Figure 3 shows the program in the 2708. This instruction sequence 
receives the command from the keyboard and checks it against its 
command table. If not found, program control is returned to TIM 
at location 7098(16) to check its commands. If the command is 
user-defined, then the program jumps indirectly to the routine 


3 
MCS @530-004 
TIM 
+5v 
O 
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4 
DOM8578 [5 > & 
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cA Dr = 





Schematic Diagram 
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LOC. CONTENTS INSTR. 
B588- 2€E eHS $28 
G§GI- 29 Cb 72 JSR $7206 
G$094- 4C #9 CC JMP $CC99 
G997- A2 86 LDX #NCHDS-1 
9969- DD $6 71 CHP CHbS,X 
G95C- Ne 19 BNE $2 
GOGE- AS FD LBA SAVX 


COMMENTS 


TIM PROMPTER “." 


OUTPUT PROMPTER USING TIN OUTPUT ROUTINE 


JUMP INTO 2788 EPROM 
FOLLOWING INSTRUCTIONS AS IN TIM 


| Figure 2 
Program in 8578 PROM 


whose address is immediately following the command letter in the 
table. User-defined commands will have priority over TIM’s 
commands. The format for each command in the table is as 
follows: command letter, low address of routine, high address of 
routine. Since the 2708 is erased to all 1’s, | used FF(16) for the 
delimiter to signify the end of the table. Thus, the table can be 
added to at any time by programming 3 bytes. 


Some final comments: | located the 2708 at CC00(16) but it can be 
located anywhere by changing the address in the 8578 and the 
address of the command table. At the end of each routine added, 
there must be a jump to 7086(16) to get back into TIM. The first 
byte of the 8578 is the TIM prompting character. lf you want 


something other than the period, program any character you want 
into this location. Since the 8578 is an irreversible PROM, and | 
only used the first 16 locations, if you make a mistake in burning 
the PROM, the second half can be used by connecting the high 
address line, A4, to Vcc. Also, check the 2708 before the 8578 is 
wired since this modification won’t work without all: chips in- 
stalled correctly. 


This modification converts TIM into an adaptable operating 
system. Anytime | get more resident routines, | can add them to 
TIM by programming three locations into the command table in 
the 2708. 


LOC. 


CC99- 
CC83- 
CC95- 
CC88- 
CCSA- 
ccac- 
CCSF- 
CC12- 
CC14- 
CC13- 
CC18- 
CCIA- 
CCIB- 
CCIE- 
CC28- 
CC23- 
CC24- 
CC25- 
CC26- 
CC28- 
CC29- 
CC2A- 
CC25- 
CC2C- 
Ce2D- 
CC2E- 


CONTENTS 


LOOP 


CHEK 


INSTR. 


JSR 


JMP 


NEXT INX 


TABL 


INX 
INX 
BNE 
oHS 
eHS 
«HS 


oHS $ 


HS 
eHS 
eHS 


$72E9 
#$99 
TABL ,X 
HSFF 
CHEK 
$7997 
TABL yX 
NEXT 


TABL ,X 
$EC 


TABL,X 
$ED 


($98EC) 


COMMENTS 


GET COMMAND USING TIM INPUT ROUTINE 
X IS INDEX INTO TABLE 


CHECK COMMAND LETTER IN TABLE FOR DEFAULT 


DELIMITER 


IF NOT DELIMITER, COMPARE COMMAND FROM KEYBOARD 


OTHERWISE, JUMP BACK INTO TIM. 

CHECK KEYBOARD COMMAND AGAINST TABLE 
IF NOT COMMAND, CHECK NEXT IN TABLE 
FOUND COMMAND | 

GET LOW ADBRESS OF ROUTINE 


GET HIGH AUBRESS OF ROUTINE 


JUMP INDIRECT TO ROUTINE 
INCREMENT POINTER TO NEXT COMMAND 


GO BACK AND CHECK REST OF COMMANDS 
COMMAND LETTER “*" 

LOW ADDRESS OF ROUTINE #1 

HIGH ADBRESS OF ROUTINE 4&1 

COMMAND LETTER “B" FOR BASIC PROGRAN 
LOW ADDRESS OF BASIC PROGRAM 

HIGH ADDRESS OF BASIC PROGRAM 

END OF TABLE DELIMITER 


Figure 3 
Program in 2708 EPROM 
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6502 GRAPHICS ROUTINES 


Jim Green 
807 Bridge Street 
Bethlehem, PA 18018 


The 6502 Graphics routines were written specifically for use with 
the Polymorphics Video Terminal Interface. (VT1), board installed 
on a KIMSI, S-100 interface to a KIM. It is expected that these 
routines will work with other low resolution graphics boards of a 
similar configuration with little or no software modification but no 
other boards have been attempted to date. 


On the VTI, 16 lines of 64 ASCII characters each, or a grid of 48 by 
128 individually controllable points, can be accomodated. For 
each memory byte, the high bit, 7, determines how the byte is to 
be treated. If this bit is set the byte is displayed as an ASCII 
character. If the bit is clear the lowest six bits are displayed as 
points of a 3 by 2 point subset of the 48 by 128 point grid. Each 
such bit that is set will be displayed as black. The remainder will be 
white. 


The upper left-hand corner of the display screen is the display 
origin. This is also the base address of the video memory. The 
input coordinates to the routines are specified as hex values in the 
X and Y registers. The X register holds the column value and has a 
permitted range of 0 to $7F. The Y register holds the row value 
from 0 to $3F. 


Routines are provided: WHTPNT, to set; BLKPNT, to clear; and 
TSTPNT, to test the current value of a specified display bit. An 


additional routine, BLANKR, is used to blank the entire screen. 


The principal task of the graphics routines is to gain effective 
access to each specified bit in the screen grid without disturbing 


COPYRIGHT BY 


CONSTANTS 


ba i LL Bn ek ee | et | en | eT YY 


~DEF VIDBAS=SCQ06 


VERSION @.3B, 


any of the remaining points. This task is divided into two parts, 
first to locate the byte that contains the target bit, then to isolate 
the target bit itself. These tasks are performed by subroutine 
POINT which is called by the other routines. 


Within POINT, the ranges of X and Y are first tested. If either value 
is found to be out of range, control is returned to the calling 
program with the C flag set and with no changes to the video 
memory. If the ranges are ok, the C flag will be clear when the 
routines eventually return to the calling program. 


After the range tests, the row coordinate value is divided by three 
(by a process of successive subtraction), and the column 
coordinate value is divided by two. The integer quotents and 
remainders are saved separately in each case. The row and column 
quotents now point to the row and column that uniquely contain 
the target byte. Hence, when the row quotent is multiplied by 64 
and is then added to the column quotent an offset from the video 
memory base address is obtained. By adding the base address to 
this value the absolute memory address of the target byte is 
obtained. 


To isolate the target bit within a byte, the column and row 
remainders are combined to form an index value (0 to 5). This 
index is used to select one of six masks which may be logically 
combined with the byte to uniquely treat the target bit. 


On the system described, these routines require an average of 
about a third of a milli-second to complete a single bit update. 
This is more than ample for most purposes. 


65472 GRAPHICS ROUTINES 


18 OCT 78 


~DEF UPLIM=SC4 


me 
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J. S. GREEN, COMPUTER SYSTEMS 
887 BRIDGE STREET 

BETHLEHEM, PA 18818 

(215) 867-9924 


COMMERCIAL RIGHTS RESERVED 
EFFECTIVE COORDINATES IN HEX ON ENTRY: 


COLUMN VALUE IN X, 
ROW VALUE IN Y, 


(8 - $7F) 
(0 - $2F) 


;VIDEO MEMORY BASE ADDR 
;UPPER LIMIT (HIGH BYTE) 


VARIABLES 

~DEF ROW=SE2 
DEF COL=SE3 
-DEF ROWREM=SE4 
~DEF COLREM=SE5 
-DEF GRADR=SE6 


me 


-LOC $8286 

; DISPLAY CLEAR BIT 
9200 20 4C @2 WHTPNT: JSR POINT >GET ADDRES + MASK INDEX 
9283 B® 09 BCS WHTPT1 -BR IF PROBLEM 
0205 A® OO LDY# @ 
0207 BD 98 62 LDAX PLTMSK >GET MASK 
620A 31 E6 AND@Y GRADR *AND WITH VIDEO BYTE 
@20C 91 E6 STA@Y GRADR >DISPLAY CLEAR BIT 
G2GE 60 WHTPT1: RTS 

; DISPLAY SET BIT 
G20F 26 4C @2 BLKPNT: JSR POINT *GET ADDRES + MASK INDEX 
09212 B® OD BCS BLKPT1 *BR IF PROBLEM 
9214 AD OB LDY# @ 
09216 BD 99 92 LDAX PLTMSK ;GET MASK 
9219 49 FF EOR# SFF sREVERSE IT 
921B 11 E6 ORA@Y GRADR sOR WITH VIDEO BYTE 
921D 29 3F AND# S$3F *CLEAR HIGH BITS 
§921F 91 E6 STA@Y GRADR sDISPLAY SET BIT 
$221 60 BLKPT1: RTS 

: TEST DISPLAYED BIT 

; RESULTS WITH Z FLAG SET IF BIT IS SET 
0222 20 4c 82 TSTPNT: JSR POINT :GET ADDRES + MASK INDEX 
9225 BO OB BCS TSTPT1 >BR IF PROBLEM 
9227 AD OO LDY# @ 
$8229 BD 99 62 LDAX PLTMSK *GET MASK 
§22C 49 FF EOR# SFF ;REVERSE IT 
Q@22E 29 BF AND# SBF *CLEAR BIT 6 
9230 31 E6 AND@Y GRADR *% SET IFF GRAPHIC-BIT SET 
0232 60 TSTPT1: RTS 

; BLANK VIDEO FOR PLOT 
9233 AY CB BLANKR: LDA# >VIDBAS 
0235 85 B7 STA  GRADR#+1 
0237 AB OB LDY# @ 
6239 84 E6 STY | GRADR 
$23B AQ 3F LDA# S3F + @@11 1111 
23D 91 E6 BLANK1: STA@Y GRADR 
Q923F E6 E6 INC GRADR 
9241 D@ FA BNE BLANK] 
0243 E6 E7 INC GRADR+t1 sHIGH ORDER ADDRES BYTE 
0245 A6 E7 LDX  GRADR+1 
0247 E® C4 CPX# UPLIM >TEST END OF SCREEN 
6249 90 F2 BCC BLANK1 -BR NOT DONE 
@24B 60 RTS 


=e 
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924C 
G24E 
9250 
G252 
9254 
9255 
$256 
9257 
9258 
925A 
§25B 
G25C 
§925D 
O25E 
$268 
9261 
9262 
0263 
9265 
6267 
9269 
§26B 
926C 
926D 
0 26F 
9271 
G273 
9274 
8276 
9278 
9279 
9278 
927C 
G27E 
9280 
9282 
9284 
9286 


9288 
928A 
G28C 
§28D 
O28E 
O028F 


9290 
9291 
9292 


9293 


§294 
@295 


80 


—=3F 


30 
3B 


FF 


FA 


E4 
E5 


POINT: 


POINTI1: 


POINT2: 


=e 6% 


POINT3: 


c 
PLTMSK: 


GET BYTE ADDRES & BIT MASK 


CPX# $890 7128 IS TOO HIGH 

BCS POINT3 ;BR TOO HIGH 

CPY# $30 748 IS TOO HIGH FOR ROW 
BCS POINT3 ;BR TOO HIGH 

TXA ; COLUMN 

PHA ;SAVE IT 

TYA ; ROW 

TAX sDIVIDE ROW BY 3 

LDY# SFF INITIALIZE QUOTENT 

INY ; ACCUMULATE QUOTENT 

DEX ;SUBTRACT 3 

DEX 

DEX 

BPL POINTI1 ;BR MORE 

INX ;RESTOR 3 

INX 

INX 

STX ROWREM ;ROW REMAINDER 

STY ROW ; INTEGER QUOTENT 

LDX# J@ 

STX COLREM ; INITIALLY CLEAR 

PLA ;RESTOR COLUMN 

LSRA ;DIVIDE BY 2 

STA COL ; INTEGER QUOTENT 

ROL COLREM ;REMAINDER FROM CARRY 
LDA ROW 

CLC 

STX GRADR+1 ;CLEAR ADDRES HI 

LDX# 5 ;PREP TO MPY BY 2**6 (=64) 
ASLA ;MPY BY 2 EACH LOOP 

ROL GRADR+1] ;OVERFLO TO ADDRES HI 
DEX 

BPL POINT2 ;BR TIL DONE 6 TIMES 
ADC COL ;ADD THE PLACE IN THE ROW 
STA GRADR 

LDA# >VIDBAS ; VIDEO MEMORY BASE ADDR HI 
ADC GRADR+1 

STA GRADR+1 ;ADDRES POINTS TO BYTE 


; IN VIDEO MEMORY 


NOW CALC MASK INDEX FOR BIT WITHIN BYTE 


LDA  ROWREM ;EITHER 8, 1 OR 2 

ROR COLREM ;EITHER @ OR 1 INTO CARRY 
ROLA ;COMBINE WITH CARRY 

TAX 

CLC ;CLEAR CARRY SAYS ANS OK 
RTS 

BYTE S1F ;UP-LEFT POINT WITHIN BYTE 
BYTE $38 ;UP-RT 

BYTE $2F ;MID-LF 

BYTE $3D ;MID-RT 

BYTE $37 ; LO-LF 

BYTE $3E ;LO-RT 

_END NO ERRORS DETECTED 


PASS (1-2)? 
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A CLOSE LOOK AT THE SUPERBOARD II 


Bruce Hoyt, Pastor 
Sharon Associated Reformed Presbyterian Church 
Route 1 
Brighton, TN 38011 


Late in December 1978 my dreams came true. Those dreams | had 
had in the mid 60’s when | first learned how to program computers. 
| had dreamed of having my own desk-sized computer. That 
dream has come true to a degree 1 would not have thought 
possible then. The computer | now have is not desk-sized but is 
contained on one printed circuit board. Furthermore it is more 
powerful than the big monsters | worked on in the mid 60's. 
1 don’t want to bore you with a description of my continual 
amazement at a computer on a chip for such things are now old 
hat. Nor do | want to give just a general overview of the 
Superboard I! manufactured by Ohio Scientific. For a general 
description you may check the March 1979 issue of Popular 
Electronics, p.76. | want to go somewhat deeper into evaluating 
and describing the Superboard Il (Note: the Challenger IP also 
manufactured by Ohio Scientific is the same computer in a case 
with power supply). 

HARDWARE 
KEYBOARD: 
The keyboard is mounted directly on the printed circuit board as 
can be seen in the advertisements. It is a polled keyboard which is 
polled by writing to a latch addressed at memory location: DFOO. 
This latch feeds the rows of the keyboard matrix. When a key is 
depressed the latch signal is fed through the key switch to a 
tri-state buffer and back onto the data buss. A read of address 
DFOO will pick up the signal from the column in which the key is 
depressed. This method of polling the keyboard makes the 
hardware very simple (and cheap) but it is effective. In my view a 
polled keyboard like the one on the Superboard II is better than a 
hardware implemented ASCI! keyboard. Several nice features can 
be incorporated this way. For example every key has an automatic 
repeat feature. You have direct access to every key on the board 
for gaming purposes. Another keyboard can be put in parallel with 
the existing one. | plan to add a Hex keypad this way. OSI has 
provided a jack with several of the keyboard lines on it so that 
switch type joysticks may be connected for games. 
For ordinary ASCH input from the keyboard the monitor includes a 
subroutine which returns the ASCII value of any key depressed. So 
for all practical purposes this arrangement works just like any 
other ASCII keyboard. 
OSI has fed the signal from the keyboard through a resistor 
network and then out the game jack. This signal may be 
connected to a speaker to make sounds or music. The only reason 
| cannot give a further description of this feature is that OS! failed 
to include the resistors and | haven’t yet gotten around to it. 
VIDEO DISPLAY: 
The video display is elegant and simple from a hardware point of 
view. The display on the screen is 32 by 32 but has no guard 
bands. My monitor displays about 27 by 30 screen size. The 
software supplied with the Superboard uses only 24 character lines 
since many whc buy the Superboard may want to connect it to an 
ordinary TV through a video modulator. The video display is 
refreshed from a 1K memory located at DOQOO-D3FF. Any byte 
written into this memory gets fed through a character generator 
and then sent to the screen. The character generator produces not 
only the full set cf ASCII symbols but also more than 100 graphics 
symbols. It is complete enough to do just about anything you 
would want to on a 24 by 24 screen: Life, Tic-Tac-Toe, Pong, 
Racecar, Ship-tank-airplane warfare, etc. 
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You may wonder about the access to the refresh memory since 
both the CPU and the video disply circuitry must use it. The video 
display memory is accessed through a multiplexer which is 
normally connected to the refresh circuitry. This multiplexer 
allows the CPU to access the memory whenever the CPU addresses 
any memory from D0O00to D3FF. This causes a slight blink in the 
display on the TV monitor but the blink is almost unnoticable. 
Even constantly writing to the display memory causes only a slight 
decrease in brightness and some flicker of the picture. But 
whoever writes constantly to the display memory anyway? There is 
no affect at all on the monitor when the CPU is accessing memory 
other than the video memory. 

CASSETTE 1/O: 

The Superboard comes with a KC standard cassette interface built 
in. This operates at 300 baud. That is somewhat slow for loading 
long programs but the slowness is compensated for by the 
accuracy. |! have yet to find a read error. The hardware for the 
interface uses a Motorola 6850 ACIA to generate serial data. | 
think that a small change in the clock used for this ACIA could 
speed up operation but | have not checked this out yet. This 6850 
is located at FOOOFOOI! in the memory space. 

The greatest difficulty with the cassette interface is that no 
provision has been made for motor control. It would have been 
simple to use the Request-to-Send output from the 6850 for this 
purpose. | plan to connect the Request-to-Send output to a small 
reed relay for this purpose. 

COMPONENTS: 

The board itself is high quality e; oxy-glass. It is double sided, 
through the hole plated The CPU is a 6502A and so has plenty of 
reserve, The RAM chips and other support are mostly low power 
variety. All have recent date codes. The character generator and 
the BASIC ROM’s are masked programmed type but the monitor is 
an EPROM. | suppose you could reprogram the Monitor to suit 
some particular need you might have. The schematics are 
accurate and clear. They are very easy to follow since this 
computer is not really very complicated. The only complaint |! 
would have is that various sections of the schematic are not 
labelled as to their funtion. But with a little study you can figure 
them out. 

FUTURE EXPANSION: 

An empty 40 pin DIP socket is provided for expansion. All the 
important control, address, and data lines are connected to this 
DIP socket. OS! makes a model 610 expansion board which’ 
connects to this DIP socket. The 610 expansion board comes with 
a timer, printer interface, and disk interface along with room for 
more memory. | personally plan to go from this DIP socket to a 
KIM type connector for interfacing but there are many possibilities 
for expansion including the S-100 bus or OSI’s 48 pin bus. 


SOFTWARE 

MONITOR: 

The monitor comes in an EPROM at the high end of memory and 
contains the interrupt vectors, the keyboard input routine, cassette 
[/O routines, and a memory access routine which allows you to 
view or change any memory location. With this capability it is 
very easy to load mchine language programs by hand and then 
execute them or save them and later load them from tape. One 
deficiency is the lack of a cassette save routine in the monitor. 


The monitor has a load routine but no save routine. | have written 
a save routine which incorporates a Hex memory dump. (See 
figure 1) This routine saves data in a format acceptable to the 
monitor load routine. | have located it at 0222 since this space is 
unused by the BASIC interpreter. The begin address and the end 
address of the code to be saved must be entered at OOF7 and OOF9 
respectively. When you execute the save routine, be sure to turn 
on your recorder! The code will be saved on tape as well as 
displayed on the monitor screen. If you want to use this program 
as a memory dump just run it without turning on your cassette. 
Several important monitor routines as well as some Basic routines 
are listed in Table 1. 

BASIC: 

The BASIC in ROM is an 8K Microsoft product. It is called a 6 digit 
BASIC since only 6 digits of precision are displayed. Internally, 
however, all numbers are carried in floating point form with 23 bits 
of precision (actually the precision ts 24 bits since a high order 1 
bit is assumed). That amounts to 7% digits of precision internally. 
Though this BASIC is very good and very fast it is still a BASIC 
interpreter and allowance must be made for that fact. | have a 
puzzle that | have programmed in both BASIC and machine 
language. The machine language program takes about 1% hours to 
run to completion. The BASIC program would take over a month! 
Superboard is what OSI calls its “immediate mode.” That means 
that any statement can be entered without a line number and it 
will be executed immediately. Since “?” can be used in place of 
“PRINT” it is possible to interrogate the computer for any piece of 
information you might want. For example ? A yields thevalue of 
the variable A in the memory. ? 45-20 yields 25. ? PEEK (255) yields 
the contents of memory location 255 in decimal. GOTO 40 sends 
BASIC to statement number 40 and begins execution at that point. 
This last feature is very useful in debugging. One could say that the 
immediate mode allows you to use the Superboard as a 
super-calculator and provides a built-in debugger. The BASIC 
alone is worth the price of the computer. 


ASSEMBLER: 

There is one available from OSI on tape but | haven’t tried it out. | 
want to write my own and put it in an EPROM. 
DOCUMENTATION: 

A few words must be said about documentation. Frankly, it is not 
up to OSI’s high quality in the hardware and software areas. The 
graphics manual is by far the best, providing pretty clear 
descriptions and giving good examples. The users manual leaves 
something to be desired in clarity. It is too brief and rather vague 
at points. | have had real trouble trying to use machine language 
since there is virtually no description of the machine instructions. | 
also had some trouble figuring out what pins to connect my 
Cassette to since the diagram is not clearly labelled. The BASIC 
manual is very brief—-admittedly so. OS! expects you to have on 
hand a BASIC reference manual if you are not thoroughly familiar 
with the workings of BASIC. One serious problem is an error in the 
BASIC manual relating to the USR function. It tells you to poke 
the starting address of the USR routine into locations 023E-023F 
but this does not work. In the graphics manual there is an example 
of the use of the USR function. In that example the starting 
address of the USR routine is poked into 000B-000C. This works. 
1 do wish that manufacturers would supply complete 
documentation with their software including source code. OS! 
provides almost nothing in the way of description for either the 
monitor or BASIC. | have disassembled the monitor and figured it 
out but have not yet started on BASIC. If anyone has inside 
information on the inner workings of Superboard BASIC please let 
us know. Think of all those good routines in BASIC that we could 
use to memory saving advantage: conversion routines, arithmetic 
routines, text editor, scanner, etc. 

Though | have had to give a few negatives about the Superboard I! 
| am well impressed with the quality of both hardware and 
software. If you are undecided as to what computer is the best buy 
for the money, | urge you to send your $279 check to OSI and ask 
for a Superboard. | don’t think there is anything as good for the 
price on the market. 
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0222 


0222 
0224 
0227 
022A 
022C 
022F 
0231 
0234 
0236 
0239 
023B 


O23E 
0240 
0242 
0245 
0247 
O24A 
O24C 
O24F 
0251 
0255 
0255 
0256 
0258 
O25A 
O25C 
O25E 
0260 


0263 
0265 


0268 


026B 
O26E 
0271 
0274 


0275 
0278 
0278 


BF 
FF 


02 
02 


02 


02 


02 
FC 
BF 


OSI CASSETTE SAVE/HEX MEMORY DUMP 


BRUCE HOYT 
MARCH 1979 


TO USE, 


ADDRESS IN OOF9,OOFA. 
RECORDER AND EXECUTE. 


PLACE THE START ADDRESS OF CODE 
TO BE SAVED IN OOF7,O00F8 AND THEN THE END 


TURN ON THE TAPE 
NOTE: THIS PROGRAM 


WILL SAVE ITSELF ON TAPE. 


START 


LOOP 


BUMP 


AQUT 


CC 


ORG $0222 
‘LDAIM $0D 
JSR $BF 2D 
JSR ¢FF7A 
LDAIM $2E 
JSR CC 
LDA ¢OOF8 
JSR .AQUT 
LDA $OOF7 
JSR AQUT 
LDAIM $2F 
JSR CC 
LDXIM $00 
LDAIX $00F7 
JSR AOUT 
LDAIM $0D 
JSR ¢FCB1l 
LDAIM $20 
JSR ¢BF 2D 
INC $00F7 
BNE BUMP 
INC $¢OOF8 
SEC 
LDA $O0F9 
SBCZ $00F7 
LDA ¢OOFA 
SBCZ $00F8 
BPL LOOP 
JMP $¢FE43 
STA $OOFC 
JSR $¢FEAC 
LDA $¢DOCC 
ISR CC 
LDA $¢DOCD 
JSR CC 
RTS 
JSR ¢FCB1l 
JSR $¢BF 2D 
RTS 

Figure 1 
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CARRIAGE RETURN 

CRT 

10 NULLS TO CASSETTE 
"." ADDRESS MODE 


FROM LOCATION (HIGH) 
FROM LOCATION (LOW) 
"/" DATA MODE 


GET BYTE 

OUTPUT 

CARRIAGE RETURN 
CASSETTE OUTPUT 

SPACE 

CRT 

INCREMENT FROM ADDRESS 


CHECK IF DONE 
TO + 1 

FROM + 1 

YES, RETURN TO MONITOR 
USE MONITOR DISPLAY 

TO UNPACK 

HI 


LO 


OUTPUT TO CASSETTE 
AND CRT 


Page 0 Usage 


0000 
OOFB 
OOFC 
OOFE-OOFF 


Page 1 


0100-0140 
0130 
01C0 


Page 2 


0200 
0203 
0205 
0206 
0212 
0218 
O21A 
021C 
02le 
0220 
0222-02FA 


JMP to warm start in BASIC 
cassette/keyboard flag for monitor 
data temporary hold for monitor 
address temporary hold for monitor 


stack 
NMI vector - NMI interrupt causes a jump to this point 
IRQ vector 


cursor position 

load flag 

save flag 

CRT simulator baud rate - varies from 0 = fast to FF = slow 
Control-C flag 

input vector = FFBA 

output vector = FF69 

Control C.check vector = FF9B 
load vector = FF8B 

save vector = FF96 

unused 


Page 3 and up to end of RAM is BASIC workspace 


A000-BFFF 
DO00-D3FF 
DF00 

FO00-FO01 


F800-FFFF 


FC00 
FDOO 
FEOO 
FFOO 


BASIC in ROM 

Video refresh memory 
Polled keyboard 
Cassette port 6850 


Monitor EPROM 


Floppy bootstrap 
Keyboard input routine: 
Monitor 

BASIC I/O support 


Useful Subroutine entry points 


A274 
BD11 
BF 2D 
FDOO 
FCB1 
FEOO 
FEOC 
FE43 
FE80 
FE93 
FF69 


FFOO 
FF8B 
FF96 
FF9B 
FFBA 


warm start for BASIC 

cold start for BASIC 

CRT simulator - prints char in A register 

input char from keyboard, result in A 

output 1 byte from A to cassette 

entry to monitor, clears screen, resets ACIA 

entry to monitor, bypasses stack initialization 

entry to address mode of monitor 

input ASCII char from cassette, result in A, 7 bit cleared 

convert ASCII hex to binary, result in A, =80 if bad 

BASIC output to cassette routine, outputs one char 
to cassette, displays on screen, outputs 10 nulls 
if carriage return character | 

Reset entry point 

Load flag routine 

Save flag routine 

Control-C routine 

BASIC input routine 


Table 1. 
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TWO SHORT TIM PROGRAMS 


Gary L. Tater 
7925 Nottingham Way 
Ellicott City, MD 21043 


A Fast Talking TIM 


If you have used both KIM and TIM with a terminal, you know that 
TIM has many nice features. For instance you can enter eight bytes 
at a time with TIM, and TIM has many more subroutines you can 
call in your programs than KIM does. However, KIM can adapt to 
terminal frequencies up to 2400 baud whereas TIM was designed 
to work from 100 to 300 baud. This article describes a program 
which allows you to communicate with TIM at 1200 baud or 
higher. 


0100 20 A4 73 NEWVAL JSR $73A4 
0103 A5 EE LDA $00EE 
0105 85 EB STA  $00EB 
0107 A5 EF LDA $00EF 
0109 85 EA STA $00BA 
010B 00 BRK 

010C 4C 00 01 JMP 


After a reset TIM automatically measures the speed of your 
terminal and deposits the bit times representative of the baud rate 
in two zero page locations, OOEA and OOEB. To increase the 
baud rate above 300 baud, the procedure is to place the correct 
values into EA and EB and change your terminal to that speed. 


READ TWO BYTES VIA TIM MONITOR 
PUT EE INTO EB 


PUT EF INTO EA 


NEWVAL TYPE G FOR NEW VALUES 


Figure 1 
Program to Change OOEA and OOEB. 
Type Major Value OOEA First 


By using the short program of Figure 1, | was able to find the 
correct values for 600 and 1200 baud operation (See Table 1) for 
my CT-64 and CGRS CPU board which has a 6502 operating with a 
one megahertz crystal. For each baud rate there is a range of 


Baud Rate 
1200 

600 

300 


Table 1 


values that is acceptable for EB. | have attempted to find the 
center of the range for my system. You will probably need to 
experiment to find the best numbers for your computer. 


OOEA O0EB 
01 50 
03 13 
06 3C 


Zero page memory values for three baud rates. 


Using this basic information | wrote the program of Figure 2. The 
programs begins at 157E and asks: 


SPEED 300 600 1200? 


At this point you should type 3, 6, or 1 and change your terminal to 


the correct rate. The program determines what you have entered 
and stores the correct values in EA and EB. By inspection of the 
program, you should be able to expand it to 2400 baud if you have 
a faster terminal. For a one megahertz system typical values are 
00 in EA and 75 in EB for 2400 baud. 


ATIM Operating System Menu 


If you have written a collection of utility programs, assemblers, 
disassemblers and application programs, you will need a directory 
program with which you can easily call your desired program. The 
short program in Figure 3 uses the alphabet to call 26 programs. 
When the programs finish, they should return to the beginning of 
the directory program at location 0100. 


You may choose to keep the program in ROM as | do. Only 
locations 0116 and 011B need be changed to do this provided you 


start the program at the beginning of a page. 

The program prints a prompting “-” so that you‘ll know its in 
command and not TIM. If you type a nonalphabetic character, it 
will restart. After you type a letter, say a C for compare or M for: 
move, the program finds the appropriate starting address stored 
between 0122 and 0155. After the starting address is stored in OOF6 
and OOF7, the program calls the “GO” subroutine in TIM which 
causes your program to be executed. 
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THIS PROGRAM IS RELOCATABLE AS LONG AS THE POINTER TO 
THE TEXT MESSAGE IS CHANGED IN LINE "PRINT" 


157E D8 START CLD CLEAR DECIMAL MODE 
157F AO 00 LDYIM $00 INITIALIZE INDEX 
1581 B9.B3 15 PRINT LDAY TEXT GET ASCII CHARACTERS 
1584 FO 06 BEQ PDONE DONE IF NULL CHARACTER 
1586 20 C6 72 JSR  $72C6 PRINT VIA TIM OUTPUT ROUTINE 
1589 C8 INY BUMP POINTER 
158A DO F5 BNE PRINT UNCONDITIONAL BRANCH TO PRINT NEXT 
158C 20 E9 72 PDONE JSR $72E9 READ CHOICE VIA MONITOR | 
158F C9 31 CMPIM '1 ASCII 1 ? 
1591 FO 1A BEQ HIGH 1200 BAUD 
1593 C9 36 CMPIM '6 
1595 FO 10 BEQ MEDIUM 
1597 C9 33 CMPIM '3 
1599 DO E3 BNE START NOT VALID CHARACTER 
159B A2 3C LOW LDXIM $3C GET VALUES FOR 300 BAUD 
159D AQ 06 LDAIM $06 
159F 85 EA FIXIT STA $OOEA SAVE FOR TIM TIMING ROUTINES 
1541 86 EB STX $00EB SAVE SECOND VALUE 
15A3 00 BRK RETURN TO MONITOR 
15A4 18 CLC CLEAR CARRY 
15A5 BO D7 BCS START UNCONDITIONAL BRANCH 
15A7 A2 13 MEDIUM LDXIM $13 GET VALUES FOR 600 BAUD 
15A9 AQ 03 LDAIM $03 
15AB DO F2 BNE FIXIT UNCONDITIONAL BRANCH TO FIXIT 
15AD A2 50 HIGH LDXIM $50 GET VALUES FOR 1200 BAUD 
15AF AQ O01 LDAIM $01 
15B1 DO EC BNE FIXIT UNCONDITIONAL BRANCH TO FIXIT 
15B3 53 TEXT = 'S "SPEED 300 600 1200 ?" 
15B4 50 = 'p 
15B5 45 = 'E 
15B6 45 = 'E 
15B7 44 = 'D 
15B8 20 = ' 
15B9 20 = ' 
15BA 33 = 3 — 
15BB 30 = 'O 
15BC 30 = 'O 
15BD 20 = ' 
15BE 36 = "6 
15BF 30 = '0 
15CO 30 = 0 
15C1 20 = ' igure 2 
= ' igure 
; a 3 , e > 6502 Program to Change Speed 
15C4 30 = '0 
15C5 30 = "0 
15C6 20 = ‘ 
15CT 3F > '? 
15C8 20 = ' 
15C9 00 = $00 
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0100 20 8A 72 START JSR  $728A 
0103 AQ 2D LDAIM '- 
0105 20 C6 72 JSR $726 
0108 20 EE 72 JSR  $72EE 
010B C9 5B CMPIM $5B 
010D 10 F1 BPL START 
010F 38 SEC 

0110 EQ 41 SBCIM 'A 
0112 30 EC BMI START 
0114 OA ASLA 

0115 AA TAX 

0116 BD 24 01 LDAX LOWADR 
0119 85 F6 STA  $00F6 
011B BD 25 01 LDAX HGHADR 
O11E 85 FT STA  $00F7 
0120 20 5C 71 JSR  $715C 
0123 00 BRK 

0124 00 LOWADR = $00 
0125 00 HGHADR = $00 
0126 00 = $00 
0127 00 = $00 


CRLF VIA TIM MONITOR 

PRINT "-" 

VIA TIM MONITOR 

READ A CHARACTER VIA TIM 

TEST FOR GREATER THAN Z 

BRANCH IF TOO LARGE 

SET TO CONVERT ASCII TO INDEX 
BY SUBTRACTING VALUE OF ASCII A 
IF MINUS, THEN CHARACTER LESS THAN A 
MULTIPLY BY TWO FOR INDEX 

PUT CONVERTED VALUE INTO INDEX 


GET START ADDRESS LOW 


SAVE FOR TIM 


GET START ADDRESS HIGH 


SAVE START ADDRESS HIGH 
GO TO SUBROUTINE VIA TIM 


LOW ADDRESS FOR A, FILLED IN BY USER 
HIGH ADDRESS FOR A, FILLED IN BY USER 
LOW ADDRESS FOR B 

HIGH ADDRESS FOR B 


AND SO FORTH THROUGH 
LOW AND HIGH PAIR FOR Z | 
Ce eee eee eee cece eee 


A 100 uS 16 CHANNEL ANALOG TO DIGITAL CONVERTER 
FOR 65XX MICROCOMPUTER SYSTEMS 
J. C. Williams 
55 Holcomb St. 
Simsbury, CT 06070 


Analog to digital (A/D) conversion can be useful in many 
microcomputer systems. The design presented here takes 
advantage of a large scale integrated circuit, the ADCO8I7, to 
simplify a 16 channel, 8 bit A/D system which can be attached to 
the bus of 65XX microcomputers. The applications that | have 
found for this system have included “straight” data acquisition, 
game joystick position reading, graphic input generation and voice 
recognition. Of course, the software for each of these applications 
is different,out they all require multichannel, reasonably fast A/D. 
The 100 us conversion time of this system depends only on the 1 
MHz clock frequency of the microcomputer. The microprocessor 
is not involved in the A/D conversions. Once the conversion is 
started, the processor can work on other tasks until the digital 
result is available. 


The Hardware 


This device appears to the programmer as a block of memory 
starting at a base address, BASE, and extending through 16 
locations to BASE t 15. (The actual circuit described occupies 256 
locations because of incomplete decoding.) An analog to digital 
conversion of a selcted channel, say channel X, is started by 
writing to BASE t X. The 8 bit conversion result may then be read 
from any location in the block (eg. BASE) any time after the 100 
US conversion time has elapsed. If desired, the end of 
conversion signal from the ADC0817 may cause an interrupt to get 
the attention of the processor. If multiple A/D conversions at the 
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maximum speed are required the 65XX can be kept busy with 
“housekeeping” during the conversion delay time. The example 
programs illustrate two ways the converter may be driven. 
The system uses just five integrated circuits and can be built for 
less than $40. The design, shown in Figure 1, occupies a six square 
inch area on a Vector plugboard and draws only 60 mA of current 
from the t8 Volt DC unregulated power supply. Operation of the 
circuit is simple because the ADC0817 performs all analog 
switching and A/D functions. The base address of the converter is 
fixed by six switches attached to the DM8131 six bit comparitor. 
When the processor accesses memory locations having address 
bits A15-A10 matching the switch settings, the DM8131 output 
goes low. This output is NOR’ed with AQ and A8 to further reduce 
the memory space occupied by the circuit to one 65XX page. The 
possible base addresses which can be obtained with this decoder 
can fall on any 1K boundary and A9 and A8& must be “O’s”. For 
example, base addresses (in hex) can be set to AOOO or A400 but 
not A100, A200, or A300. In the design drawn, A9 and A8 must be 
low for the A/D to be selected, but this could be changed if A9 
and/or A8 were inverted using unused sections. of the 74LS05. 
When the A/Dis selected,the output of the NOR gate (pin 12 of the 
74LS27) goes toa“1”; this can be used as a “board selected” signal 
if needed (eg. by KIM-1 users for DECODE ENABLE). The 
microprocessor R/W and 02 lines, along with an inverted board 
select signal and combined in two NOR gates which 1) latch 
channel select bits A3-AO and start A/D conversion during 02 of 
write cycles and 2) enable the tri-state data bus drivers during 02 of 


read cycles. The end of conversion (EOC) signal, produced by the 
ADC0817 when the most recent conversion has been completed, 
can be connected to a processor interrupt line through one of the 
74LS05 open collector inverters. These interrupts must be cleared 
by starting another A/D conversion. 


Wire-wrap construction is suitable for the circuit and component 
layout is not critical. It is good practice, however, to orient the 
analog input area away from digital circuits. The REF t and REF- 
reference voltages must not be noisy if the full accuracy, 20 mV 
per bit, is to be achieved. The t5 Volt regulator should not be 
shared with other circuitry. The layout used in one of the 
prototypes is sketched in Figure 2. Figure 2 also shows several 
input connections which may be useful. The circuit has two 
limitations: 1) input voltages must be between 0 and t5 Volts and 
2) signals being converted should not change appreciably during 
the 100 us conversion period. Both of these limitations may be 
eliminated by appropriate analog conditioning circuitry, but the 
simplicity of the design is lost. Builders who want to add features 
to the circuit should consult the ADC0817 specification and 
application information. 


The Software 


Two example subroutines which use the A/D converter illustrate 
how it is handled by software. The program which calls the A/D 
subroutine must initialize both the channel selection and storage 
defining parameters before the JSR instruction is executed. In the 
examples, an index register contains the channel selection 
information because of the ease of using an indexed addressing 
mode to start a conversion. Data Storage is either on page 0 or 
pointed to by page 0 variables. The A/D subroutines must either 
contain delays or take enough time between writing to and reading 
from the ADC0817 to allow it to finish the conversion. 
Components for this very useful piece of hardware can be 
obtained from a number of sources readily available to 
low-volume users. Both National Semiconductor and Texas 
Instruments produce the ADC0817 and its more accurate 
counterpart, the ADC0816. The ADC0817 and its data sheet have 
been recently listed by TRI-TEK; Inc., 7808 N. 27th Ave., Phoenix, 
AZ 85021. Many other suppliers, such as Jameco Electronics, 1021 
Howard Avenue., San Carlos, CA 94979, and Advanced Computer 
Products, 1310 “B” E. Edinger, Santa Ana, CA 92713, can supply the 
other components. 


MCAD ~- MULTI-CHANNEL A/D CONVERSION 


J. C. WILLIAMS 
JANUARY 1979 


BASE ADDRESS OF ADCO0816 . 
START OF 16 BYTE STORAGE AREA 


START CONVERSION ON CHANNEL X 
DELAY FOR CONVERSION, 


SELECT CONVERSION OF ALL 
16 CHANNELS AND GO TO SUBROUTINE 


0200 ORG $0200 
0200 BASE * § $B000 
6200 STORE * $9000 
0200 9D 00 BO MCAD STAX BASE 
0203 AO OF LDYIM $0E 
0205 88 DY DEY MINIMUM VALUE = $0E 
0206 DO FD BNE DY 
0208 AD 00 BO LDA BASE GET CONVERTED DATA 
020B 9D 00 90 STAX STORE STORE DATA 
020E CA DEX 
O20F 10 EF BPL MCAD DO NEXT CHANNEL 
0211 60 RTS FINISHED 
EXAMPLE CALLING ROUTINE FOR MCAD 
0212 A2 OF = MCMAIN LDXIM $0F 
0214 20 00 02 JSR MCAD 
0217 00 BRK 


EXIT ** BE SURE TO INIT IRQ VECTOR ** 


189 


BO 
BO 


CXAD SUBROUTINE 
J. C. WILLIAMS 
JANUARY 1979 


DY 


TSTEND 


DELAY 
DYA 


RT 


ORG 


$0300 


¢B000 
¢0000 
$0002 
$0004 


BASE ADDRESS OF ADCO816 

STORAGE POINTER 

LOC OF STORAGE BLOCK START ADDRESS 
LOC OF STORAGE BLOCK END ADDRESS 


START FIRST CONVERSION 
INIT STORAGE POINTER 


+01 
+01 


USE BINARY MODE 
INSERT DELAY TO ALLOW 
INITIAL CONV. TO COMPLETE 


TEST FOR END OF 
STORAGE BLOCK 


+0] 
+01 


ADD ONE TO STORAGE POINTER 


+01 
+01 


DELAY TO FIX TIME BETWEEN CONV'S. 


READ CONVERTED RESULT 

START NEXT CONVERSION IMMEDIATELY 
SET STORAGE OFFSET 

STORE RESULTS 


ALWAYS TAKEN 


EXAMPLE CALLING ROUTINE FOR CXAD 


CXMAIN LDXIM $00 


LDAIM 
STAZ 
LDAIM 
STAZ 
LDAIM 
STAZ 
LDAIM 
STAZ 
JSR 
BRK 


$00 
SPSTR 
$90 
SPSTR 
$FF 
SPSTP 
$9OF 
SPSTP 
CXAD 


SELECT CHANNEL O 
SET STARTING ADDRESS OF 
STORAGE BLOCK TO $9000 


+01 


SET ENDING ADDRESS OF 
STORAGE BLOCK TO $9FFF 


+0] 


EXIT 
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** BE SURE TO INIT IRQ VECTOR ** 


FIGURE 1 


16 CHANNEL ANALOG TO DIGITAL CONVERTER SYSTEM 
FOR 65XX_ MICROPROCESSOR SYSTEMS 























iro —. —8 oes 2 

Interrupt 15 18 

Switches Common Comp ° 
——a 6 { IN ANALOG INPUTS 0 to +5 Volts 
NMI —mme @ EOC 


(146 lines) 


Notes add lowpass filters 
to input lines as 
required 





DATA BUS (8 lines) 


vfofobalalalels 


YAGES KRARS 





ADDRESS AO-A3 (4 lines 
+5 


Ag 
ii ” +8 Volts 
GND | 1.Q9+ 
Att Ground 


IC*s and POWER CONNECTIONS 





Address + GND 
Switches UL ADCO816 17 20 
U2 DM8131 16 8 
+5 U3 74LS27 14 7 
3.3k U4 74LS05 14 7 
R/W , ii ry 


J. C. Williams 
1978 
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FIGURE 2 


16 CHANNEL A/D CONVERTER 


FOR 65XX_SYSTEMS 


COMPONENT SIDE OF 6.5°X 4.5° PROTOTYPING CARD -VECTOR 3662 





<—— MICROCOMPUTER BUS 


INPUT CONNECTOR DETAIL 


TOP VIEW 
GND ce o +5 
INfI4 ¢ © ING&S 
IN1I2 © «© INS 
INIO oe « INS 
INS e« « INQ 
ING ¢« eo IN? 
IN4 @ © INS 
IN2 e¢ « IN3 
INO ¢ © INL 
GND © © +5 


+1215 


A/D IN 


~ 50 wV 
per C 


GND 


Lut © 
= — Co 
DIPSWITCH ° N 
“| D | ADCO817 
~~ fo 
T8LOS” Laf 20 PIN INPUT 4 










CONNECTOR 





ANALOG INPUTS <—_ 
APPLICATIONS. 
A/D IN —_—_—_——Tr O—w +5 
obo. VOLTAGE 
lowpass Filter ana INPUT 
¢ND e———___4-_ GND 


+5 
POTENTIOMETER 
A/D IN READOUT 
100k (+typ.) 
GNO vp 


-25°C—» +85 °C 


te TEMPERATURE 
(in Tes 
enrwonnent) SENSOR 

ICW - [47 
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USING TINY BASIC TO DEBUG 
MACHINE LANGUAGE PROGRAMS 


Jim Zuber 
20224 Cohasset No. 16 
Canoga Park, CA 91306 


| just got Tiny BASIC up and running on my KIM-1 and have found 
it to be a valuable enhancement to writing machine (or assembly) 
language programs. The Tiny BASIC USR function allows us to 
access machine language subroutines from within a BASIC 
program. You can pass parameters to and from the BASIC program 
and the machine language subroutine. If you can make an entire 
machine language program appear as a subroutine to Tiny BASIC 
(add a RTS call in the appropriate place) then Tiny BASIC can 
access your entire program with the USR function. A natural 
application of this capability is a debugging program written in 
Tiny BASIC that can completely test a machine language 
subroutine without ever leaving the Tiny BASIC program. The only 
limitation to this is that your machine language program cannot 
reside in the memory area used by Tiny BASIC and you must not 
use the same zero page locations as Tiny BASIC. My program (see 
listing #1) will print out the data in 4 memory locations when a 
predefined set of conditions exist in the machine language 
subroutine. There are 7 user selectable functions in the command 
mode: 


(0) DEFINE SUBROUTINE ADDRESS - This is the starting address 
of the machine language subroutine you want to test. 


(1) DEFINE PRINT ADDRESS - This allows you to define the 
conditions that must exist before data is printed out in the run 
mode. There are 3 options: 

(A) Print every loop through the subroutine. 

(B) Print at a predefined loop interval (use a decimal number). 
(C) Conditional print - Program will only print out when data in 
a predefined address matches the value specified. 

The print mode is initialized at “Print every loop” at the start of 

the program. 


(3) PRESET DATA - This allows the user to place data in any 
memory location. 


(4) PRINT LIMIT - This number limits the number of times the 
program prints out the 4 addresses when in the run mode. This is 
initialized at 10 in the beginning of the program. Use a decimal 
value for the print limit. . 


(5) RUN PROGRAM - This starts the Tiny BASIC program looping 
through and printing out data from the machine language sub- 
routine. 


(6) EXIT PROGRAM - Returns you to Tiny BASIC monitor. 


(7) See COMMAND OPTIONS. 

All command options except 6 return to the command mode after 
execution. If your version of Tiny BASIC does not start at hex 2000 
you must change line 50 to the decimal equivalent of your Tiny 
BASIC starting address. All address and data questions should be 
answered in hex with a comma between each digit. Example: 
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Address 0,2,0,0 or Data A,2. The program will print a marker every 
50 loops through the machine language subroutine. This can be 
changed to suit your preference by modifying line 295. The 
following example should clarify the functions and use of the 
Debug Program. Listing #2 is a subroutine from a Biorhythm 
Program that | wrote. The subroutine increments 3 memory 
locations that correspond to the physical, emotional, and 
intellectual biorhythm cycle days. Each memory location should 
be reset to day one at the appropriate point. 


Location 0001 = 1 to 23 days (physical) 
Location 0002 = 1 to 28 days (emotional) 
Location 0003 = 1 to 33 days (intellectual) 


Two days in each cycle are considered critical. They are: 


Physical: Day 1 and day 12 
Emotional: Day 1 and day 15 
Intellectual: Day 1 and day 17 


Location 0004 is incremented for each cycle that is critical on a 
particular pass through the subroutine. An 02 in this location 
would indicate a double critical day on that particular pass 
through the subroutine. As a subroutine of this type would take 
several hours to test using conventional methods due to the large 
number of variables, the following sample runs from the Tiny 
BASIC machine Debug Program will show how complete testing of 
a subroutine can be done in a few minutes. (See samples #1 
through #4). 


Sample #1 The starting address is set to 0200 and the print 
addresses are defined as 0001 through 0004. The printout shows 
that locations 0001 - 0003 are incrementing as they should. 


Sample #2 Memory locations 0001 - 0003 are preset to day 20 
and the print limit is set to 15. The printout shows that the cycles 
are resetting to day 1 at the appropriate time. (days 23, 28, and 
33). 


Sample #3 The print limit is set to 4 and the print mode is set to 
every 23rd loop in order to check the consistency of the sub- 
routine. The printout shows that location 0001 is staying the 
same as it should. (location 0001 is the 23 day physical cycle). 
Note the marker at 50 loops. 


Sample #4 The print mode is set to the conditional mode in 
order to print only when location 0004 is equal to 02 (double 
citical day). The printout shows the subroutine is working 


properly. 


| would like to thank Tom Pittman (author of Tiny BASIC) whose 
programming tricks in the Tiny BASIC User Manual made this 
program possible. | hope the Machine Debug Program can take the 
sweat out of testing your subroutines! 


ween LISTING #1-——----—-—— 


16 REM TINY BASIC MACHINE DEBUG PROGRAM 
41 REM BY JIM QUBER-—-SEPT 29, 1976 
15 R=-18 
20 B=-it 
2) C=-12 
38 D=-13 
33 E=-i4 
49 F=-15 
47 REM TINY START ADDRESSCDEC) 
§=6192 


58 @ 
34 REM PRESET PRINT LIMIT 


7@ REM QUESTIONS WITH A HEX NUMBER 
THAT HAS EACH DIGIT SEPERATED 
| BY RA COMMA, 
AT A MINIMUM SET SUB RDDRESS 
AND 4 DATA ADDRESSES. 
"COMMAND MODE----SELECT ONE" 
"  @. DEFINE SUBROUTINE RODRESS* 
"1. DEFINE PRINT RODRESSES" 
“2. DEFINE PRINT MODE" 
* $. PRESET DATA" 
* 4. PRINT LIMIT“ 
». RUN PROGRAMM" 

6. EXIT PROGRAM" 
119 PR ® = 7. SEE COMPIAND GPT IONS" 
121 INPUT L 


123 IF L=8 GOTO 275 
124 IF L=1 GOTO 148 
le? IF =2 GOTO 16? 
136 IF L=3 GOTO 239 
133 IF L=4 GOTO 266 
136 IF L=5 GOTO 284 
133 IF L=6 GOTO 1680 
141 IF L=/7 GOTO 182 
142 PR “--~COMMAND MODE---" 
145 GOTO 4124 

14/7 REM INPUT 4 ADDRESSES 
148 PR “POSITION #1--"; 
151 GOSUB S86 

154 T=N 

15/7 PR “POSITION #2--°; 
166 GOSUB See 

163 U=H 

166 PR “POSITION #3--"; 
169 GOSUB 268 

1/72 Y=N 

173 PR “POSITION #4-—*; 
1/78 GOSUB sug 

181 WN 


BRS ot 
BERERGe 





i> pa be 
ANS 


jut 
eS 
2B 3 
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184 GTO 142 

166 REM DEFINE PRINT MODE 

187 PR “PRINT MODE-~—-SELECT ONE" 
196 PR“ 1. ALL LOOPS” 

193 PR“ 2. DEFINE NUMBER OF LOOPS" 
196 PR" = 3. CONDITIONAL PRINT® 
199 IRPUT H 

262 IF H=i GOTO 142 

265 IF H=2 GOTO 215 

265 IF He3 GOTO 224 

211 GOTO 187 

215 PR “INPUT LOOP INCREMENT" 
218 INPUT K 

221i GOTO 142 

223 REM CONDE TONAL PRINT MODE 


236 GOTO 142 
238 REM PRESET DATA 
239 GOSUB 826 


204 Y=USR(S+24, P, BD 
234 PR “ANY MORE TO PRESET?CI=N 2=¥>" 
23° INPUT ¥ 

266 IF Y=2 GOTO 239 

263 GITO i142 

265 REM SET PRINT LIMIT 

266 PR "INPUT PRINT LIMIT" 

263 INPUT & 

2f2 GOTG 142 

274 REM DEFINE SUB START ADDRESS 
27> GOSUB &hg 

2°6 0=N 

278 GOTO 142 

264 REM RUN PROGRAM 

201 PR 

254 PR SLOOP", “-4-", “~2-", 8~3-", "-4-" 
25° PR 


254 Y=USRCO} 

295 IF P=P/S6*58 THEN PR P 
296 IF H=1 GOTO 314 

239 IF H=2 GOTO 323 

361 REM CONDITIONAL PRINT 
SZ Y=USRCS+26, 13 

$85 IF J=i GOSUE Sau 

368 IF a=G GOTO i42 


wanna LISTING #1 CONT INUED-—---——--- 


311 GOTO 293 

313 REM PRINT ALL LOOPS 

314 GOSUB 388 

S17 IF X=G GOTO i42 

$26 GOTO 293 

322 REM DEFINED NUMBER OF LOOPS 
$23 IF P=P/K*K GOSUB 560 

$20 IF X=G GOTO 142 

$2? GOTO 293 

349 REM SUB TO PRINT 2 HEX BIGITS 
306 M=2Z716 

$95 Z=2-M*16 

368 GOSUB 4un+li+h 

$76 GOSUB 466+242 


419 RETURN 
420 PR "A"; 
421 RETURN 
422 PR "EB"; 
423 RETURN 
424 PR "LC"; 
425 RETURN 
426 PR °D"; 
427 RETURN 


431 RETURN 

499 REM SUB TO PRINT 4 ABDRESSES 
086 PR P, 

985 Z=USK(S+28, Ts 

918 GUSUB 38 

915 PR * 

J26 PeUSR(S#20, f ) 
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920 GOSUE 338 
338 PR " 

33D Z=USR(St20, W 
046 GOSUB 356 
345 PR " "3 
DIG Z=USE(S+20, W 
33) GOSUB 358 


376 RETURN 

S66 REM SUB RDDRESSCHEX TO DEC) 
Sbe N=8 

SUS X=1 

BH/ PR eet ADDRESS" 

816 INPUT R 

815 GUSUB Sue 

826 IF X=4 RETURN 

B25 X=K+4 

838 GOTU 818 

858 te SUB DATACHEX T0 DEC 


GOSUB 968 
$76 IF X=2 RETURN 
875 X=k+41 
$36 GOTO 966 
966 REM HES TO DECIMAL SUB 
965 IF R>999 THEN NEN*16 
946 IF R599 THEN NeW*16 
915 IF R59 THEN NENG 
926 IF R>@ GOTO 998 
925 IF R<@ THEN R=-R 
930 N=N*i6+k 
9235 RETURN 


996 R=RtR/1GER*15S61R/ 16GB 96+R/ 1686 


995 GOTO 325 
1686 END 


-—--—-~---L STING #2------—--- 


INTL LDA *INT. 


CHP 


BER LOP2 
ICRT LDA *INT. 
CMP 61 


BEG LOPS 

CMP 1? 

BEB LOPS 
EXIT RTS 


LOPL INC *CRIT 


JP ECT 


LOP2 INC *CRIT 


JHP TERT 


LOPS INC *CRIT 
EX} 


START ADDRESS 
LABELS 


START 


INCREMENT PHY 


INCREMENT EMT 


INCREMENT INT 


PHY CRITICAL? 


ENT CRITICAL? 


INT CRITICAL? 


INCREMENT CRIT 
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COMMAND MODE----SELECT ONE 
@ DEFINE SUBROUTINE RDDRESS 
1. DEFINE PRINT ADDRESSES 
2. DEFINE PRINT MODE 


$. PRESET DATR 

4. PRINT LIMIT 

J. RUN PROGRAM 

6. EXIT PROGRAM 
> at SEE COMMAND OPTIONS 
INPUT ADDRESS 
? & 2,88 
———COMMAND MODE--- 
241 
POSITION #1--INPUT ADDRESS 
764814 
POSITION #2--INPUT ADDRESS 
? 8 8, 0,2 
POSITION #3--INPUT ADDRESS 
78083 
POSITION #4--INPUT RODRESS 
? 8. 8,08,4 
—-—-COMMAND MODE--- 
73 
LOOP ss -4- ~2- ~3- -4- 
1 Be G2 12 08 
é 83 O3 13 08 
3 84 G4 14 on 
4 i) a) 15 08 
) 86 06 16 Bo 
6 07 07 17 OL 
? 83 G5 18 6H 
8 89 89 19 Bd 
g 19 18 ra Oe 
18 11 it é1 08 
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---------- SPMPLE #2---------- 
COMMAND MODE-—- 
23 


INPUT ADDRESS 
766,81 


INPUT DATA 
728 


A MORE TO PRESET?CI=N 2=) 
INPUT ADDRESS 
? 28,82 


INPUT DATA 
? 28 


PAY HORE TD PRESET?(1=N 2=¥) 
fe 

INPUT ADDRESS 

? 88,83 

INPUT DATA 

72,6 

pA MORE TO PRESET?(41=N 2=¥> 
—-COMMAND MODE-—— 

24 


INPUT PRINT LIMIT 
71 


COMMAND MODE--- 

25 

LOOP 4-H 
1 24 24 24 oft 
2 22 22 22 ae 
3 23 23 23 Ca 
4 Ot 24 24 1 
5 92 25 25 ne 
6 83 26 26 a 
7 B4 27 27 aa 
8 85 28 28 oa 
9 96 01 29 a1 
10 BF @2 30 aa 
11 63 63 34 80 
12 99 a4 22 a8 
13 10 95 33 ae 
14 14 86 Bt a1 
15 12 a7 82 at 


~-------—-SAMPLE #3-------——- —---—-——-——SANPLE #4---------- 


—--COMMAND MODE--- ——-COMMAND MODE—- 
24 | 22 
INPUT PRINT LIMIT PRINT MODE---SELECT ONE 
24 4. ALL LOOPS 
> DEFINE NUMBER OF LOOPS 

== COMMAND MODE--- 2 CONDITIONAL PRINT 
>2 23 
PRINT MODE---SELECT ONE INFUT ADDRESS 

4. ALL LOOPS 2 0,884 

2 DEFINE NUMBER OF LOOPS 

3. CONDITIONAL PRINT INFUT DATA 
22 70,2 
INPUT LOOP INCREMENT 5 conn MODE~—- 
> 23 


=--COMMAND MODE-—- 
25 LOOP -t- 2 





08 
LOOP t-te 100 
138 12 13 G1 G2 
23 12 62 en) 61 158 
46 i2 Zu 15 G1 154 vo) B1 17 G2 
59 196 61 15 26 a 
69 12 2 Li Gi 268 
92 12 15 23 G2 208 
203 12 16 1? Ge 
THE OSI FLASHER: 
BASIC-MACHINE CODE INTERFACING 
Robert E. Jones 
Handley High School 
West Point St. 
Roanoke, AL 36274 
The following program is an example of how a machine language 10 FOR Y = 1 TO 32 : PRINT : NEXT Y 
program for the 6502 microprocessor may be loaded from BASIC, 20 PRINT “INPUT THE DELAY CONSTANT." 
executed, and then control may be returned to BASIC (and back 30 PRINT "USE A LOW NUMBER FOR A" 
again and again, as in this case.) | wrote the program to use in my 4Q PRINT "FAST FLASH RATE ( <.5)." 
job as a science teacher at Handley High School in Roanoke, 50 INPUT T 
Alabama, where we have two 6502 based microcomputers to use 60 FOR P = 4096 TO 41 30 
in teaching programming and solving problems of a repetitive 70 READ C : POKE P.C 
nature in chemistry and physics. This program is set up to be run 80 NEXT P _ 
on our OHIO SCIENTIFIC CHALLENGER II. 90 POKE 11,0 : POKE 12,16 
Our CHALLENGER was originally a MODEL 65V-4K with a total of 100 FOR X = 53200 TO 54380 
12K of RAM. It has been updated with the new MODEL 500 CPU 110 POKE X,INT(255*RND(8) ) 
board with OS! MICROSOFT 8K BASIC in ROM. We also use a 120 NEXT X 
COMMODORE PET with 8K of RAM for programs which need 130 FOR D = 1 TO 100#T 
graphics. 140 NEXT D 
150 X = USR (X) 
The program may be run on any OSI challenger with a video board 160 GOTO 130 
set up to start at screen memory location 53312 (base 10) or 3 
P 170 DATA 160,4,162,0,189,0,208 


DOOO (hex). Our video board is the old 440 BOARD with only 
four pages of screen memory. The new MODEL 540 video 


180 DATA 105,1,157,0,208,232,208 
190 DATA 245,238,6, 16,238, 11, 16 
200 DATA 136,208,236, 169,208, 141,6 
210 DATA 16,141,11, 16,96,0, 16 
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OSI FLASHER 


BY ROBERT E. JONES 
FEBRUARY 1979 


1000 ORG $1000 
1000 AQ 04 START LDYIM $04 
1002 A2 00 LDXIM $00 
1004 BD 00 DO LOOP LDAX ¢bdc0Cc 
1007 69 Qi ADCIM $01 
1009 9D 00 DO STAX $DO0C 
100C E8 INX 

100D DO F5 BNE LOOP 
10OF EE 06 10 INC {£1006 
1012 EE OB 10 INC $1008 
1015 &8 DEY 

1016 DO EC BNE LOOP 
1018 AY D0 LDAIM ¢D0 
IO1A 8D 06 16 STA $1006 
101D 8D CB 10 STA  $€100B 
1020 4C 00 10 JMP = START 


LCAD INDEX Y WITH 4 

LOAD INDEX X WITH O 

LOAD A WITH CONTENTS OF DCOC + X 
ADD ] 

STORE AT DQCO + X 

BUMP POINTER/CCUNTER 

BRANCH IF NOT ZERO 

INCREMENT ADDRESSES 


DECREMENT INDEX Y 
LOCP IF NOT ZERC 


CONTINUE RUNNING 


WARNING: Set the BASIC LOMEM pointer to some address above this machine lanquage 
code before running BASIC, or you will destroy the code. 


board-based Challengers may use this program to occupy all eight 
pages of video memory if a change is made on line 170. The 
number to be changed is the second number of the DATA 
statement, the number which tells the program how many pages of 
screen memory to use. For 540-based systems the new version 
should be as follows: 

170 data 160,8,162,0, 189,0,208 


LINE 10 CLEARS THE SCREEN 


The reason for the ease of change is that the starting locations for 
the screen memory on both the 440 and 540 boards is the same, 
DOOO (hex). The latter version with the provision for eight pages 
of video display will work on either type of board, but it seems 
tedious to me to poke numbers into screen memory locations not 
visible on my 440-based machine. 


LINES 20-50 GIVE INSTRUCTIONS AND INPUT THE DELAY FACTOR. 
THE LARGER THE DELAY FACTOR, THE SLOWER THE FLASH. RATE. 


LINES 60~80 READ THE MACHINE CODE PRO 
4096 TO 4130 (DECIMAL) OR 

LINE 90 POINTS TO THE START OF TH 
EXITING FROM BASIC. 

LINES 100-120 CREATE A SCREEN FULL OF R 

LINES 130-140 DELAY ROUTINE TO ALLOW TH 
DEPENDING ON THE SIZE OF 
THE MACHINE CODE PROGRAM. 

LINE 150 CAUSES AN EXIT FROM BASIC 

LINE 160 SENDS THE PROGRAM BACK TO 


GRAM AND STORE IT IN MEMORY LOCATIONS 
1000 TO 1022 (HEX). 
E USR ROUTINE - WHERE TO JUMP TO WHEN 


ANDOM CHARACTERS 
E SCREEN TO REMAIN AS IS FOR A TIME 
THE DELAY FACTOR BEFORE RETURNING TO 


TO THE MACHINE CODE PROGRAM 
THE DELAY ROUTINE WHILE IN BASIC. 


LINES 170-210 DATA STATEMENTS FOR THE MACHINE CODE PROGRAM 
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THE MICRO SOFTWARE CATALOG: IV 


Mike 
P.O. 


Rowe 
Box 3 


So. Chelmsford, MA 01824 


Name: Bridge Challenger 
System: PET or Apple II 
Memory: 8K PET or 16K Apple II 
Language: Not specified 
Hardware: Not specified 
Description: Bridge Challenger lets you and the 
dummy play four person Contract Bridge against 
the computer. The program will deal hands at 
random or according to your criterion for high 
card points, and you can save hands on cassette 
and reload them for later play. You can review 
tricks, rotate hands East-West, shuffle only the 
defense hands, or replay hands when the cards 
are known. 
Copies: Not specified 
Price: $14.95 
Includes: Not specified 
Author: Not specified 
Available from: 

Personal Software 

P.O. Box 136 

Cambridge, MA 02138 

617/783-0694 


Name: CURSOR - Programs for PET Computers 
System: PET 


Language: BASIC and Assembly Language 
Hardware: Standard PET 
Description: CURSOR is a cassette magazine with 
proven programs written just for the 8K PET. 
Each month the subscriber receives a C-30 cas- 
sette with five or more high quality programs 
for the PET. People can't read this "magnetic 
Magazine", but the PET can! The CURSOR staff 
includes professional programmers who design and 
write many of the programs. They also carefully 
edit programs which are purchased from individ- 
ual authors. 
Copies: Not specified 
Price: $24 for 12 monthly issues 
Includes: Cassette 
Authors: Many and varied 
Available from: 

Ron Jeffries, Publisher 

CURSOR 

P.O. Box 550 

Goleta, CA 93017 

805/967-0905 


Name: PET Schematics and PET ROM Routines 
System: PET 

Memory: None 

Language: None 

Hardware: None 

Description: PET Schmatics is a very complete 
set of accurately and painstakingly drawn schem- 
atics about your PET. It includes a 24" x 30" 
CPU board, plus oversized drawings of the Video 
Monitor and Tape Recorder, plus complete Parts 
layout - all the things you hoped to get from 
Commodore, but didn't! 

PET ROM Routines are complete as- 
sembly listings of all 7 ROMs, plus identified 
subroutine entry points. 

Copies: Not specified. 
Price: PET Schematics - $34.95 
PET ROM Routines - $19.95 

Available from: 

PET-SHACK Software House 

Marketing and Research Co. 

P.O. Box 966 

Mishawaka, IN 46544 
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Name: S-C Assembler II 
System: Apple II 
Memory: 8K 
Language: Assembly language 
Hardware: Apple II, optional printer 
Description: Combined text editor and assembler 
carefully integrated with the Apple II ROM-~based 
routines. Editor inclues full Apple II screen 
editing, BASIC-like line-number editing, tab 
stops, and renumbering. LOAD, SAVE, and APPEND 
commands for cassette storage. Standard Apple 
II syntax for opcodes and address modes. Labels 
(1 to 4 characters), arithmetic expressions, and 
comments. English language error messages. 
Monitor commands directly available within as- 
sembler. Speed and suspension control over 
listing and assembly. 
Copies: Just released, over 100 sold. 
Price: $20.00 (Texas residents add 5% tax) 
Includes: Cassette in Apple II format and 
a 28 page reference manual. 

Author: Bob Sander-Cederlof 
Available from: 

S-C Software 

P.O. Box 5537 

Richardson, TX 75080 


Name: PL/65 or CSL/65 
System: SYSTEM 65 or PDP 11 
Memory: 16K bytes RAM 
Language: Machine language. 
Hardware: Rockwell SYSTEM 65 
Description: A high-level language resembling 
PL/1 and ALGOL is now available to designers de- 
veloping programs for the 6500 microprocessor 
family using either the SYSTEM 65 development 
system of the PDP 11 computer. PL/65 is consid- 
erably easier to use than assembly language or 
object code. The PL/65 compiler outputs source 
code to the SYSTEM 65's resident assembler. 
This permits enhancing or debugging at the as- 
sembler level before object code is generated. 
In addition, PL/65 statements may be mixed with 
assembly language instructions for timing or 
code optimization. 
Copies: Not specified. 
Price: Not specified from Rockwell. 
$500 from COMPAS. 

Includes: Minifloppy diskette. 
Authors: Not specified. 
Available fron: 

Electronic Devices Division 

Rockwell Internationsal 

P.O. Box 3669 

Anaheim, CA 92803 

714/632-2321 (Leo Scanlon) 

213/386-8776 (Dan Schlosky) 


COMPAS - Computer Applications Corp. 
413 Kellogg 

P.O. Box 687 

Ames, IA 50010 

515/232-8181 (Michael R. Corder) 


NOTE: Since some of these Software Catalog listings ap- 
peared as long ago as Oct. 1978, the reader is advised to check 
with the vendor to determine current availability, price, etc. 


Name: PRO-CAL I 
System: PET 
Memory: Not specified. 
Language: BASIC and machine language. 
Hardware: Not specified. 
Description: A reverse polish scientific 
calculator program, ideally suited for scientif- 
ic and educational applications. Supports sing- 
le key execution of more than 50 forward and in- 
verse arithmetic, algebraic, trigonometric and 
exponential functions. It implements calcula- 
tions in binary, octal, decimal, and hexidecimal 
modes with single keystroke conversion between 
modes and simultaneous decimal equivalen dis- 
play.It also allows the recording and playback 
of calculator programs on cassette tape permit- 
ting the use of most calculator software already 
in existance up to a limit of 255 steps. 
Copies: Not specified. 
Price: $26.00 domestic, $28.00 foreign. 
Includes: Software on cassette and an operating 
manual. 

Authors: Not specified. 
Available from: 

Applications Research Co. 

13460 Robleda Road 

Los Altos Hills, CA 94022 


Name: Financial Software 

System: Apple II (easily modified for PET) 
Language: Applesoft II 

Hardware: Apple II 

Description: Sophisticated financial programs 


used to aid in investment analysis. The follow- 
ing programs are currently available: Black- 
Scholes Option Analysis, Security Analysis using 
the Capital Asset Pricing Model, Bond Pricing I 
and II, Cash Flow and Present Value Analysis I 
and II, Stock Valuation, Rates of Return, Calcu- 
lations and Mortgage Analysis. 


Copies: Just released. 
Price: $15.00 each or $50.00 for all 9 programs 
Includes: Cassette, annotated source listings, 


operating and modifying instructions, 
sample runs and backgroud information. 
Author: s&ric Rosenfeld 
Available from: 
Eric Rosenfeld 
70 Lancaster Road 
Arlington, MA 02174 


Name ; 

System: 
Memory : 
Lang uage : 
Hardware: 
Description: 


Name: MICROCHESS 
Systems: PET and Apple II 
Memory: PET - 8K/Apple II 16K 


Language: 6502 Machine Language 
Hardware: Standard PET or Apple II 
Description: MICROCHESS is the culmination of 


two years of chessplaying program development by 
Peter Jennings, author of the famous 1K byte 
chess program for the KIM-1. MICROCHESS offers 
eight levels of play to suit everyone from the 
beginner learning chess to the serious player. 
It examines positions as many as 6 moves ahead, 
and includes a chess clock for tournament play. 
Every move is checked for legality and the 
current position is display on a graphic chess- 
board. You can play White or Black, set up and 
play from special board positions, or even watch 
the computer play against itself. 
Copies: Not specified. 
Price: $19.95 
Includes: Not specified. 
Author: Peter Jennings 
Available fron: 

Personal Software 

P.O. Box 136 

Cambridge, MA 02138 

617/783-0694 


Name: 
System: 
Memory: 


Apple II BASEBALL 

Apple II 

16K or more 
Language: Integer BASIC 
Hardware: Standard Apple II 
Description: An interactive baseball game that 
uses color graphics extensively. You can play a 
7 or 9 inning game with a friend, (it will han- 
dle extra innings), or play alone against the 
computer. Has sound effects with men running 
bases. Keeps track of team runs, hits, innings, 
balls and strikes, outs, batter-up and uses pad- 
dle input to interact with the game. Uses every 
available byte of memory. 


Copies: Just released. 
(Dealers inquiries invited) 
Price: $12.50 


Includes; Game Cassette, User Bookelt with com- 
plete BASIC listing. 
Authors: Pat Chirichella and Annette Nappi 
Available from: 

Pat Chirichella 

506 Fairview Avenue 

Ridgewood, NY 11237 


DDT-65 Dynamic Debugging Tool 
Any 6502 based system 
3K RAM/1K RAM for loader 
Machine Language 
32 char/line terminal 
DDT-65 is an advanced debugger 


that allows easy assembly and disassembly in 


650X mnemonics. 
automatic breakpoint 


Software single-stepping and 
insertion/deletion allow 
debuffing of code even in PROM. 


DDT-65 comes in 


a relocatable form on tape for loading into any 
memory or for PROM programming. 


Copies: 11+ 
Price: $25.00 
Include: 
cassette. 
Ordering Info: 


10 page manual, relocating tape 


KIM format cassette - K 


Kansas City at 300 baud for OSI - 0 
Kansas City at 300 baud for TIM/JOLT - T 


Author: Rich Challen 
Available from: 
Rich Challen 


939 Indian Ridge Drive 


Lynchburg, VA 24502 
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THE MICRO SOFTWARE CATALOG: V: 


Mike Rowe 
P.O. Box 3 
S. Chelmsford, MA 01824 


Name: Text Editor/Word Processor 
System: Apple Il 
Memory: 24K for cassette, 32K for Disk Il 
Language: Applesoft Il 
Hardware: Apple Il, cassette tape recorder or Disk II and printer 
Description: Uses any width line, features upper and lower case 
using inverse video, justification by adding blanks, user set and 
cleared tabs in any column, automatically renumbers lines on 
insertion or deletion, usable with any printer interface by 
extremely slight program modifcation. 
Copies: 100* 
Price: $50. for cassette version, $60 for Disk version 
Includes: cassette or diskette and instructions. Source listing 
available by sending SASE with serial number 
Author: Craig Vaughn 
Available from: Local Apple dealers or: 

Peripherals Unlimited 

6012 Warwood Road 

Lakewood, CA 90713 


Name: Mailing Label Package 
System: Apple Ul 
Memory: At least 32K 
Language: Applesoft I 
Hardware: Apple Il, Disk Il, and printer 
Description: Stores 3-line or 4-line addresses (may be mixed) plus 
phone # and a 15-character code field, any one record may be 
accessed by name or phone #, prints in zip code order, will print all 
records or select by code field with wild card, any number of labels 
horizontally, user formats spacing, may be used with any printer 
interface with very slight program modification. Five hundred 
records maximum on one diskette with 48K. 
Copies: 20 
Price: $40 
Includes: Diskette and instructions. Source listing available by 
sending SASE with serial number. 
Author: Claudia Vaughn 
Available from: Local Apple dealers or: 

Peripherals Unlimited 

6012 Warwood Road 

Lakewood, CA 90713 


Name: APPLE PILOT 
System: Apple II 
Memory: 16K tape 1/0, 32K Disk 1/O 
Language: Interpreter in Applesoft I 
Hardware: Apple I 
Description: A language to write games and school lessons with. 
Only 8 commands to learn plus special Apple graphics and tone 
commands. 
Copies in circulation: 10 
Price: $20. Add $5 for a diskette. 
Includes: Tape and manual and 1 year updates. 
Author: Earl Keyser 
Available from: 
The Pilot Exchange 
22 Clover Lane 
Mason City, LA 50401 


Name: Programs for Indoor Advertising Applications 
System: Apple fl 
Memory: 16K 
Language: Integer BASIC and Machine Language 
Hardware: Standard Apple II 
Description: This Program allows the Apple to be used as an 
automated Advertising machine for stores, trade shows, etc. 
HI-RES ALPHANUMERIC MESSAGES: 28 Characters per line, 4 
lines, 3 pages of text. Features a right-side ‘word-rap’ plus 
instant ‘page desolve’, as one page ends and the next begins. 
Characters are crisp and can be Lavender or Green on a Black 
Background. They ‘puff’ on at reading speed. 
GIANT-LETTER SEQUENCES: Brilliantly-colored letters, of full 
screen height appear one-at-a-time, in sequence, to spell out 
messages. The color of Successive Words progresses through 
the Apple rainbow. A running summary of letters appears in 
the bottom four screen lines, as the giant letters are 
presented. 
THE SCROLLING WONDER: Allows user to enter up to four 
brief messages. They appear in Apple upper case by ‘popping’ 
onto the screen from below. Messages enter in random 
sequence, with random space between them. They have 
random horizontal placement and a random 50% sample of 
the messages ‘flash’. A multiple-rainbow grand finale ends the. 
program. 
Copies: All just released 
Prices: SCROLLING WONDER $8.00 
GIANT-LETTER SEQUENCES $8.00 
HI-RES ALPHANUMERIC MSG $15.00 
ALL THREE PROGRAMS $25.00 
Includes: Cassette only, with verbal instructions on reverse side of. 
cassette and written instructions on screen. 
Author: Howard Rothman 
Available from: 
Connecticut Information Systems Co. 
218 Huntington Road 
Bridgeport, CT 06608 
203/579-0472 


Name: Hangman 
System: Apple fl 
Memory: 20K minimum 
Language: BASIC 
Hardware: Apple II, Disk II 
Description: This program is the old traditional Hangman we used 
to play with pencil and paper except that the computer will choose 
the word for you to guess. The disk comes with over 350 words and 
has routines accessed with ‘ESC’ to add or change words. Gallows 
is in lores and neck stretches when floor drops. 
Copies: Aprox. 25 
Price: $14.00 post paid. Calif. residents add sales tax 
Includes: Disk with program and over 350 words. 
Order Info: Master Charge and Visa accepted. 
Author: Loy Spurlock 
Available from: 
Computer Forum Company 
14052 E. Firestone Blvd. 
Santa Fe Springs, CA 90670 
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Name: Feet and Inches Calculator 
System: Apple I 
Memory: 16K 
Language: Applesoft ROM 
Hardware: Applesoft ROM 
Description: This program does calculations based on entries 
made in feet and inches. Functions include addition, subtraction, 
division, multiplication, roots, powers and decimal equivalents. 
Operating screen consists of three windows: one for entries, one 
lists functions, and the third reproduces the problem after entry. 
Performs calculations to 1/64”. Has memory which allows recall of 
last answer for next problem. 
Copies: Just released 
Price: $10.00 
Includes: Cassette tape 
Author: Dick Dickinson 
Available from: 

Dick Dickinson 

5400 Western Hills Drive 

Austin, TX 78731 


Name: BLOCKADE 
Systems: Challenger IIP 
Memory Required: 4K 
Language: BASIC and assembly 
Hardware Required: Challenger II or III 
Description: Two players are needed to play this challenging game 
in which the object is to block out your opponent before he blocks 
you out! Each play has four keys for NESW direction, which enable 
you to construct a wall, trying to block out the other player. The 
first person to run into the wall loses. Programmed for large 
_characters, or small. Uses Assembly for fast clearing of the screen 
and printing of characters. Complete with scoring. 
Copies: Lots! 
Price: $8.00 for listing, cassette, and instructions. 
$4.00 for listing and instructions only. 

Includes: Cassette at 300 Baud. ($8). 
Author: Bill Langford 
Available from: 

Bill Langford 

3823 Malec Circle 

Sarasota, Fla. 33583 


Name: OSI Games 
System: OSI Superboard II/Challenger 1P 
Memory: Not specified 
Language: Not specified 
Hardware: Not specified 
Description: Dodgem - use strategy to get your pieces off the 
opposite side of the board (1 or 2 players). Tank Attack - seek and 
destroy enemy guns hidden among houses and trees before they 
get you (1 player). Free-for-all - airplane, destroyer, and submarine 
vie for each other (1 or 2 players). Hidden Maze - find your way 
through an invisible maze with one-way gates (1 or 2 players). 
Copies: Not specified 
Price: $7.95 (t 75 cents postage) 
Includes: Tape cassette, instruction booklet. 
Author: Not specified 
Available from: A large number of dealers or: 

Creative Computing Software 

P.O. Box 789-M 

Morristown, NJ 07960 

201/540-0445 


Name: 3D Graphics 
System: Apple Il 
Memory: 16K 
Language: Floating Point BASIC 
Hardware: Apple tf (Applesoft ROM for Load and Go option) 
Description: Accurate 3D to 2D wire frame _ perspective 
transformations of your data bases. The standard software package 
contains the BASIC listing for transformation of 3D line endpoints 
(X,Y,Z coordinates) to perspective drawing endpoints in two 
dimensions (X,Y coordinates) for high-resolution plotting. User has 
control over location in space, direction of view, and viewing 
window (telephoto or wide angle). User must be able to run 
floating point BASIC and hi-res graphics simultaneously. Optional 
Load and Go version is specifically for Applesoft ROM and 
includes a sample data base and output-plotting interface. It is 
truly Load and Go. © 
Copies: Over 200 sold 
Price: $22 ($26 with Load and Go option) 
Includes: 60 page manual and listing (Applesoft II cassette with 
Load and Go option) 
Author: Bruce Artwick (option by Jim Harter) 
Available from: 

SubLOGIC 

P.O. Box V 

Savoy, IL 61874 

217/367-0299 


Name: Program Catalog 
System: Apple Il 
Memory: 24K minimum 
Language: BASIC 
Hardware: Apple Il, Disk II 
Description: This program will catalog all your disk programs by 
category on one disk. It will keep track of all your programs and 
which disks they are on as well as keeping notes about the program 
so you can be sure of the program before you hit the proper key to 
have this program load and run the program you want. It also 
contains numerous routines to manipulate the information. 
Copies: New, just released. 
Price: $19.00 post paid. Calif. residents add sales tax. 
Includes: Program on disk, documentation 
Order Info: Master Charge and Visa accepted. 
Author: Loy Spurlock 
Available from: 

Computer Forum Company 

14052 E. Firestone Blvd. 

Santa Fe Springs, CA 90670 


Editor's Note: The MICRO Software Catalog was the most 
mentioned article in our recent reader survey. If you have software 
you would like to bring to the attention of the MICRO readers, 
simply type it up in the proper format and send it in. Please adhete 
to the format as strictly as possible, including UPPER and lower 
case, titles, and so forth. Since this material will be typeset 
someone has to get it into proper form. If you submit it in proper 
form, you increase your chances for early inclusion in MICRO. 
There is no charge for appearing in this catalog. 


We are happy to see some programs for the OSI systems 
appearing. 
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Name: MAXIT! 
System: PET 
Memory: 8K 
Language: BASIC 
Hardware: Standard 
Description: A challenging number game played between two per- 
sons or versus the PET. From an 8 X 8 board players alternatively 
move horizontally and vertically trying to maximize their score and 
minimize their opponents. An exciting, engrossing game, that bears 
returning to multiple times. Suitable for young and old alike. Ex- 
cellent graphics. 
Copies: 50 plus 
Price: $4.95 plus 32‘ tax for CA residents, pp. 
Includes: Cassette and 2 page printed instructions. 
Author: Harry J. Saal 
Available from: 

Harry J. Saal 

810 Garland Drive 

Palo Alto, CA 94303 


Name: 6502 Tiny Editor - Assembler 
System: Any 6502 based system. 
Memory Program takes 1K, 4K recommended for source and object 
code and label table. 
Language: Machine Language 
Hardware: ASCII Keyboard and CRT display. 
Description: A single pass assembler, closely follows MOS 
Mnemonics, and is extremely memory efficient. The editor is 
designed to be easily extended by the user. Editor commands in- 
clude: Find line, delete line, insert line, list source, list symbolic 
labels, define Jabel, and set origin. A single pass assembler allows 
the object code to overwrite the source code - larger source 
programs can be assembled in a given memory size. 
Copies: Just released: 
Price: $19.95 (KIM-1 Hypertape cassette: $3.00 extra) 
Include: User manual and complete source and object listing, fully 
commented, with modification instructions. 
Author: Michael Allen 
Available from: 

Michael Allen 

6025 Kimbark 

Chicago, IL. 60637 


Name: 6502 ROBOT 
System: Any 6502 based system 
Memory: 1.5K 
language: Machine language 
Hardware: ASCII Keyboard and CRT display, or “turtle”, or plotter. 
Description: ROBOT is an interactive programming language for 
the control of robots, such as “turtle”, plotter or CRT cursor. 
ROBOT’s command processing module is designed to allow the user 
to design his own language of personalized commands and com- 
mand subroutines to suit his particular application. The version of- 
fered here includes a command set and subroutine package for the 
control of a CRT robot. 
Copies: Just released. 
Price: $5.00(KIM-1 Hypertape cassette: $3.00 extra) 
Include: user manual, complete and fully commented source and 
object listing, instructions for adapting, modifying, and using the 
command processing module for other applications. 
Author: Michael Allen 
Available from: 

Michael Allen 

6025 Kimbark 

Chicago, IL 60637 


204 


Name: OSI Games 
System: Challenger 
Memory: 4K 8K 
Language: Basic and Assembly 
Hardware: Challenger 
Description: The game programs are written for the challenger with 
the 440 video display and ASCII keyboard. Most of these will run on 
the 2p and 1p. Games such as Bomber and Klingon are written with 
simulated animation and Klingon also will support sound with PIA’ 
port and tone oscillator. We also have lunar lander; Battleship; and 
others. 
Copies: Just released 
Price: $8.00 for listing and instructions and 300 baud cassette 
Author: William L. Taylor 
Available from: 

William L. Taylor 

264 Flora Rd. 

Leavittsburg, Ohio 44430 


Name: LINK 
System: PET 
Memory: Any amount 
Language: Assembly 
Hardware: Standard PET 
Description: This program will allow the user to link exclusively 
numbered BASIC programs in memory. This allows the programmer 
to develop complex programs as sub modules and then merge them 
together into the final functioning unit. A great time saver as the 
programmer can develop a library of subroutines which can be 
merged virtually at any time with the program which he is 
developing. With complete instructions on use. 
Copies: Just released 
price: $12.95 ppd, Michigan residents add 4 % sales tax. 
includes: Cassette and instructions 
Author: G. Salked 
Order Info.: Master Charge and Visa accepted. 
Available from: 

Your local PET dealer or 

Dr. Daley 

425 Grove Ave. 

Berrien Springs, MI 49103 

616-471-5514 


Name: PILOT 
System: PET 
Memory: 8K minimum 
Language: BASIC 
Hardware: Standard PET 
Description: A simple to use, easy to learn programming language. 
This is especially suited for use by children. Only 10 commands to 
learn with no complicated syntax plus special cursor and graphics 
control commands. 
Copies: 25 
Price: $12.95 ppd, Michigan residents add 4% sales tax. 
Includes: cassette and users manual. 
Author: R.F. DAley 
Orther Info.: Master Charge and Visa accepted 
Available from: 
Your local PET dealer or 
Dr. Daley 
425 Grove Ave. 
Berrien Springs, M! 49103 
616-471-5514 


Name: Slow-Scan Television Package 

System: Apple Il 

Memory: 16K (min) 

Language: Machine Language 

Hardware: Standard Apple I 

Description: This software system allows the Apple II to send and 
receive U.S. amateur standard slow-scan T.V. pictures (120 line-15 
Hz) via any ham radio SSB transceiver. A real-time display of the 
received picture in high-resolution graphics is accomplished with a 
sophisticated image processing algorithm. Low-resolution images 
for transmission are prepared with a large-character display editor 
as well as a drawing editor. All modulation and demodulation of 
the audio FM subcarrier is performed by the software — replacing 
hundreds of dollars of hardware required by other SSTV systems. 
Comes on cassette with 8 mins. of test pictures. 

Copies sold: about 100 

Price: $20. 

Includes: Cassette tape and 5 pages of documentation. 
Author: Chris H. Galfo — WB4JMD 

Available from: 

C.H. Galfo 

602 Orange St 

Charlottesville, VA 22901 


Name: S-C Assembler tI (disk version) 
System: Apple I! with at least one disk 
Memory: 24K or more 
Hardware: Apple II, Disk II, optional printer 
Description: Disk version of the popular S-C Assembler for the 
Apple I. Combines a text editor and an assembler in one memory 
resident package of 3072 bytes (1000-1BFF). Carefully integrated 
with the Apple I! ROM-resident routines, and with Apple DOS. 
Editor includes full screen-editing, BAS!C-like line number editing, 
tab stops, and renumbering. LOAD and SAVE commands for 
storage of source programs on disk files or cassette. JOIN 
command for appending two source programs from cassette. 
Standard Apple I! syntax for opcodes and address modes. Labels 
(up to 6 characters), arithmetic expressions, comments in a 
liberated line format. English language error messages (not coded 
numbers). DOS and Apple Monitor commands directly available 
within the assembler. Speed and suspension control over listing 
and assembly. Includes printer deiver for Practical Automation 
printer, with instructions for modification to any other printer. 
(Cassette version is still available: it has fixed line format and 
labels up to four characters.) 
Copies: Over 200 of cassette version, over 25 of disk version. 
Price: $35 for disk version, $25 for cassette version (Texas residents 
add 5% sales tax) 
Includes: 32-page reference manual, disk with assembler, Master. 
Create, RAWDOS, and two sample source programs. 
Author: Bob Sander-Cederlof 
Available from: . 

S-C SOFTWARE 

P.O. Box 5537 

Richardson, TX 75080 
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Name: PRO-CAL-I 
System: Commodore PET 
Memory: 8K 
Language: Microsoft BASIC 
Hardware: PET 
Description: PRO-CAL-I] is a reverse polish programmable 
scientific calculator program ideally suited to scientific and 
educational applications. It combines the best features of the PET 
with those of hand-held calculators such as the HP 97 and the TI 
“Programmer”. It supports single key execution of more than 50 
functions and implements calculations in binary, octal, decimal, 
and hexidecimal number systems. The program. displays 10 
memory registers, 5 stack registers, and a record of the 14 most 
current operations. 
Copes: 40 
Price: $26.00 for software on cassette and an operating manual. 
Author: Robert M. Munoz 
Available from: 

APPLICATIONS RESEARCH CO. 

13460 Robleda Rd. 

Los Altos Hills, CA 94022 


Name: FINANCIAL ANALYSIS: A Tutorial 

System: APPLE Il and PET 

Memory: 16K 

Language: Basic 

Hardware: APPLE I! with cassette recorder, or a PET (8K) 
Description: An interactive learning cassette with chapters on 
Risk, Short-term and Intermediate-term Financing, Financial 
Statements, and Key Business Ratios. The user is then put into the 
position of having to use these concepts by playing the Meany 
Manufacturing Business Game. 

Copies: Hundreds available 

Price: Sugg. Retail: $16.50 

Includes: Tape cassette and informative booklet 

Author: Brian Beninger | 


Available from: 
Local APPLE or PET dealers of: 
SPEAKEASY SOFTWARE LTD. 


P.O. Box 1220 

Kemptville, Ont., KOG 1JO 
Name: STAT Ill 
System: Commodore PET 
Memory: 8K 


Language: BASIC 
Hardware: Standard PET 
Description: STAT Il accepts a set of numbers and calculates the 
following: mean, median, mode, highest number in the data, 
lowest number in the data, range, variance, standard deviation, 
average deviation, and sample standard deviation. STAT III can 
display a bar graph of the users data on the CRT. [n addition the 
user may correct errors in his inputted data before processing. 
Copies: Just released 
Price: $7.95 
Includes: Cassette, source listing (program is self documenting) 
Author: Michael J. McCann | 
Available from: 

THE PET PAPER 

P.O. Box 43 

Audubon, PA 19407 


Name: Apple Pi ‘Life’ 
System: Apple I 
Memory: 4K 
Language: BASIC and assembly 
Hardware: Apple II with 2 operable game paddles with switches. 
Description: Apple Pi ‘Life’ allows variable grid sizes from 8X8 up 
to 40X40 in increments of 1. Paddle 1 is only read when the switch 
is depressed. Speed is controlled by paddle 0 and can be varied 
from 550 gpm to 2000 gpm for an 8X8 grid. For a 40X40 grid, speed 
can be varied from 25 gpm to 140 gpm. The speaker is toggled each 
time a cell is processed, except at minimum or maximum speed, to 
give the sounds of ‘Life’. The bottom of the grid wraps around to 
top of grid, and vice-versa. The right of the grid wraps around to 
left of grid, and vice-versa. There are three tables of pre-defined 
objects which can be setup on the grid by number and x,y 
location. A description of the object table structure is given in the 
documentation. Keyboard controls are: P-pause until next ‘P’, 
Z-zero vrid and setup objects, O-setup objects on grid, N-new 
colors, anc E-exit program. Any two distinct colors may be used for 
live and dead cells. 
Copies: Nev just released. 
Price: $12.00. Texas residents add sales tax. 
Includes: Programs, object tables on cassette, documentation. 
Order Info: Checks only. 
Author: Harry L. Pruetz. 
Available from: 

Microspan Software 

2213A Lanier Drive 

Austin, TX 78758 


Name: Amateur Radio Communications Package 
‘System: Apple Il 
Memory: 8K (min) 
Language: Machine Language and Integer BASIC 
Hardware: Apple I! and user provided interface 
Description: This software package allows the Apple II to 
communicate in any of three codes: Morse, Baudot, or ASCII, with 
a minimum amount of external hardware required. Some features 
include: Variable size text buffer and live keyboard allow 
reparing text for transmission while receiving or transmitting; 3 
Field screen display — each field scrolling separately; user defined 
stored messages are referenced by a keyboard and can be inserted 
anywhere in the text; automatic 72 character line formatting with 
word wrap-around; continuously variable code speeds; adaptive 
Morse receive and lots more! All 1/O uses the on-board (game) !/O 
connector. 
Copies sold: over 100 
Price: $18. 
Includes: Cassette tape and documentation with sample interface. 
Author: Chris H. Galfo - WB4JMD 
Available from: 
C.H. Galfo 
602 Orange St. 
Charlottesville, VA 22901 
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Name: TRANSACTIONAL ANALYSIS: An Introduction 
System: APPLE t! and PET 
Memory: 16K 
Language: Basic 
Hardware: APPLE I with cassette recorder, or a PET (8K) 
Description: An introduction to T.A. - a system for understanding 
human behaviour. Chapters include: You As A Person, Stroking, 
Transactions, Are You Listening?, the Balancing Game. This 
interactive learning cassette will help you gain better 
understanding of why you get along with some people and not 
with others and may give you a better understanding of yourself! 
Copies: Hundreds available 
Price: Sugg. Retail: $16.50 
Includes: Tape cassette and informative booklet 
Author: Joy Karp 
Available from: 

Local APPLE or PET dealers or: 

SPEAKEASY SOFTWARE LTD. 

P.O. Box 1220 

Kemptville, Ont., KOG 1J0, Canada 


Name: DOS TEXT EDITOR 

System: APPLE II 

Memory: Cassetts-16K, Applesoft Rom-24K, DOS-32K 

Language: Applesoft I! 

Description: EDIT is a program designed to facilitate changes to 
disk and cassette text files. The program has 24 commands to 
manipulate files. Included are: INSERT, DELETE, CHANCE, 
SEARCH, ADD, LIST, TEXT, DISPLAY, PACK, MODE, TAB, CLEAR, 
APPEND, SAVE, CONCAT, and STRING CHANGE. Commands that 
operate on blocks of data such as Range DELETE, LIST, SEARCH, 
and STRING replace are also provided. EDIT may also be used to 
create Disk files. 
Copies: Just released 

Price: $16.95 (Add $5 if desired on diskette) 

Specify if Applesoft ROM 

Includes: Program cassette or diskette, Complete documentation, 
and users manual. 
Author: Robert Stein 
Available From: 

Services Unique, Inc. 

2441 Rolling View Dr. 

Dayton, Ohio 45431 


Name: REAL-! 
System: Commodore PET 
Memory: 8K 
Language: Microsoft BASIC 
Hardware: PET 
Description: REAL-I is a real estate investment analysis program 
which models an investment by computing the cash flow, tax 
advantage, inflation hedge, internal rate of return, and other 
quantities as they change over the years under the effects of 
inflation. It specializes the calculations to the tax position of the 
investor and helps him to judge the relative merits of various real 
estate investments opportunities. 
Copies: Just released 
Price: $29.00 for software on cassette and an operating manual. 
Author: Robert M. Munoz 
Available from: . 

APPLICATIONS RESEARCH CO. 

13460 Robleda Rd. 

Los Altos Hills, CA 94022 


Name: Missile-Anti-Missile 
System: Apple 
Memory: 16K 
Language: Apple 0 Soft 
Description: Simulated missile attack on 3-D Map of USA 
Copies: 30 
Price: $9.95 + $1.00 postage & handling 
Includes: Cassette with instructions 
Author: T. David Moteles & Neil Lipson 
Available from: 

Progressive Software 

P.O. Box 273 

Plymouth Mtg., PA 19462 


Name: DISK DUMP/RESTORE 
System: Apple I! with disk 
Memory: 32K (min) 
Language: Applesoft If and machine language 
Hardware: Apple Il, Disk Il 
Description: A disk-tape utility to dump and restore all Integer, Ap- 
plesoft II, and Binary programs automatically. The program names, 
Binary program addresses, and all commands necessary to re-load 
the programs from tape and restore them again to disk under their 
original names are stored on tape header file. 
Copies: Just released 
Price: $8.00 
Includes: Cassette and instructions 
Author: Alan G. Hill 
Available from: 
‘Alan G. Hill 
12092 Deerhorn Dr. 
Cincinnati, Ohio 45240 


Name: NOT ONE 
System: KIM 
Memory: 1K 
Language: Assembly 
Hardware: Bare Kim! 
NOT ONE is an exciting, fast moving game of skill, strategy, and 
change for one to five players (including KIM). The game is designed 
for use with KIM’s onboard display and hex pad. 
Besides being an entertainment game, the NOT ONE package was 
designed to introduce some powerful general-purpose output 
manipulation subroutines for the KIM’s LED display. These include 
variable-speed, scrolled alpha-numerics! 
The manual also discusses LED segment codes in an effort to in- 
crease the user’s knowledge of the display. 
Author: Steven Wexler 
Price: $15.00 
includes: Source listing, manual, and cassette 
Available from: 

SJW, Inc. 

P.O. Box 438 

Huntingdon Valley, PA. 19006 


The 6502 Program Exch. 
_ 2920 Moana 
Reno, NV. 89509 


Name: A Forth System 

System: Apple Il 

Memory: 24K or Larger 

Language: 40% ASSEMBLY, 60% Forth 


‘Hardware: Disk Il 
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Description: A unique software package for software buffs and 
serious programmers who have gotten tired of programming in in- 
teger basic and machine language. FORTH is an _ extensable 
language, allowing the programmer to “define” new dictionary en- 
trys that use previous entrys. Most of FORTH is written in FORTH. 
Benchmarks show that FORTH executes 20 times faster than BASIC. 
Included in the package are: 
1) Powerful screen editor for system development. 
2) Decompiler - used to generate to some extent a source listing. It 
can be used to list our portions of FORTH itself. 
3) Utility package - dump, disk maintenance etc. does not use ap- 
ple II dos. 
4) Completely documented using a special disk retreival system. in- 
cludes some programming examples. Editor, decompiler is available 
on source. 
Copies: Just Released 
Price: $39.95 + tax for california residents 
Includes: One mini diskette + manual 
Author: John T. Draper 
Available from: 

Captain Software 

PO Box 575 

San Francisco, CA 94101 


Name: Function Graphs and Transformations 
System: Apple Il 
Memory: 16K minimum if Applesoft is in ROM, otherwise 32K 
minimum 
Language: Applesoft (floating point Basic) 
Hardware: No special hardware 
Description: This program uses the Apple II high resolution graphics 
capabilities to draw detailed graphs of mathematical functions 
which the user defines in Basic syntax. The graphs appear in a large 
rectangle whose edges are X and Y scales (with values labeled by up 
to 6 digits). Graphs can be superimposed, erased, drawn as dashed 
(rather than solid) curves, and transformed. The transformations 
available are reflection about an axis, stretching or compressing 
(change of scale), and sliding (translation). The user can alternate 
between the graphic display and a text display which lists the 
available commands and the more recent interactions between user 
and program. Expected users are engineers, mathmaticians, and 
researchers in the natural and social sciences; in addition, teachers 
and students can use the program to approach topics in (for exam- 
ple) algebra, trigonometry, and analytic geometry in a visual, in- 
tuitive, and experimental way which complements the traditional, 
primarily symbolic orientation. 
Copies: Just released 
Price: $14.95 (Cat. No.: AHEO123) 
Includes: cassette tape, 12-page instruction booklet 
Author: Don Stone 
Available from: many computer stores or 

Powersoft, Inc. 

P.O. Box 157 

Pitman, NJ 08071 

(609) 589-5500 


Name: 6502 VDR 
Systems: Any 6502 with room available at $200 or $DD00 
Memory: “”K 
Language: 6502 machine code 
Hardware: Memory-mapped video board such as Polymorphic 
Systems VTI, Solid State Music VB-1B, Etc. 
Description: Organizes memory-mapped display for teletypelike 
use including automatic scrolling, line wrap-around, clear screen 
commands, etc. 
Copies: 30 
Price: $9.50 plus $1 shipping 
Includes: Operating Manual, detailed configuration information, 
and complete commented source listing. 
Order: Package includes KIM compatable tape cassette with both 
$200 and $DD00 versions included. Charge cards, phone and mail 
order accepted. 
Available from: 

Forethought Products 

97070 Dukhobar #D 

Eugene, Oregon 97402 


Name: CHEQUE—CHECK™ 
System: PET 
Memory: 8K 
Language: BASIC, with machine language subroutine 
Hardware: PET 2001-8 (or 2001-16/32 on special order) 
Description: CHEQUE-CHECK reduces the probability of error in 
reconciling bank statement and checkbook, even for those ex- 
perienced in the art. More important it greatly reduces the time 
required to find and correct an error when one does occur, because 
it “remembers” individual entries for later review and modification 
if necessary. Designed and tested for ease of use, CHEQUE-CHECK 
is suitable for novice or expert, and requires no tape files or 
knowledge of programming. Reviewed in May 1979 issue of Robert 
Purser’s Reference List of Computer Cassettes. 
Copies: 60 sold in first three months. 
Price: $7.95 (quantity discount available) 
Includes: Cassette in Norelco style box, Description and operating 
instructions, zip-lock protective package. 
Designer: Roy Busdiecker 
Available from: Better computer stores or directly from 

Micro Software Systems 

P.O. Box 1442 

Woodbridge, VA 22193 


Name: Disk Catalog Program 
System: Apple Il 
Memory: 32 K minimum 
Language: Integer Basic and Machine Language 
Hardware: Apple Ul, DISK II 
Description: This program consists of two modules. The first, 
DCATPRO, is a general purpose data base catalog program for 
books, records, tapes, programs on diskette, etc. Features include 40 
col. records, 5 fields (2 with adjustable length), and super fast 
machine language sort. The second,. GENCPINP, automatically 
processes any set of Apple II diskettes and generates a data base for 
DCATPRO by reading the D§CATALOG information for each disket- 
tes. Then you know what you have and where it is, all without 
having to type in a lot of data. 
Copies: Over 100 sold 
Price: $10.00 postpaid 
Includes: Programs on cassette and 5 pages of documentation 
Arthur: George W. Lee 
Available from: 

George W. Lee 

18003 S. Christina Ave. 

Cerritos, California 90701 
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Name: Generalized File Management 
System: APPLE Il 
Memory: 16K 
Language: Integer Basic 
Hardware: APPLE II, DISK I 
Description: This package allows you to create, update, and print 
disk files. The names of fields and files, number of fields, individual 
field lengths, and file size is user defined. You can decide what 
headings you want to see (if any) when you print or display and 
record or the entire file. You can use this package to create such 
files as: Parts lists, phonenos., List of birthdates, name and address, 
and whatever... 
Copies: Just released 
Price: $16.50 
Includes: Diskette that contains two programs, some sample file 
useages (birthdates, parts list), and a user manual. 
Author: Lee Stubbs 
Available from: 

Les Stubbs 
23725 Oakheath PI. Harbor City, Ca 90710 


Name: WEAVER 
System: Apple Il 
Memory: 32K 
Language: Integer Basic 
Hardware: Disk Il 
Description: WEAVER simulates as multi-harness loom with control 
of warping, hook-up and treadling. Weaving drafts of 40 threads of 
warp and 40 threads of weft are drawn in 15 colors for patterns 
requiring up to 24 harnesses. Weaving patterns are saved and called 
by name from disk storage. The user-interface is designed for easy 
and efficient use by a weaver. Nine pages of documentation include 
a glossary of commands which defines the functions of the program 
and a sample draft with descriptive data entry. 
Copies: New program. 
Price: $15.00 on cassette tape, $20.00 on diskette with five sample 
drafts. 
Author: Bruce Bohannan 
Available from: 

Bruce Bohannan 

2212 Pine Street 

Boulder, CO 80302 


Name: Address and Perpetual Calendar 
System: APPLE Il 
Memory: 32K 
Language: Applesoft Il 
Hardware: APPLE UI wi/Disk II 
Description: This program maintains your master address file on 
disk. User follows a master menu to add or change names, look for 
specific names or review entire file (or part) name by name. All out- 
puts are formatted. Look and change records with a search function 
i.e., If you do not remember how to spell a name then enter the 
number of letters you do know and the program will walk you 
through all names beginning with what you entered until you find 
the one you want. A birthday function is included that will search 
your entire file and list all names, birthday and age for any given 
month. A special feature loads up a Perpetual Calendar program 
that will display any month (formatted) between the years 1704 and 
2099 and highlights any particular day. Return to address program is 
optional. 
Copies: Just released. 
Price: 15.00 ppd 
Includes: Disk and instructions 
Author: Edward S. Kleitches 
Available from: 

Edward S. Kleitches 

7207 Camino Grove 

San Antonio, Texas 78227 


Name: DB/65 
System: ANY 28 or 40 PIN 6500 
Hardware: Power supply and terminal 
Power Requirements: 5V at 3 AMPS. #12, -12 at 20 Milliamps if 
RS232C terminal used. 
Description: DB/65 is a complete hardware/software debug 
system for any 6500 system. Command structure is identical to that 
of the ROCKWELL SYSTEM 65. Hardware breakpoint, scope syne, 
eight software breakpoints and any number of real-time 
breakpoints (via the BRK instruction) are supported. Object code 
and symbol table may be loaded from either serial or parallel port 
(compatable with SYSTEM 65 printer port). Symbolic disassembly 
is supported so programmer is always debugging at assembler 
level. In circuit emulation and 2K RAM are standard. RAM may be 
added for total of 8K if desired. User NMI and IRQ vectors and 
supported. System monitor resides in address range $7000 to $7F FF 
so user program may occupy high memory. 2MHZ option 
available. 
Copies sold: 15 
Price: $1450 
Includes: Manuals, In circuit emulation, 2K RAM shipping 
Developed by: COMPAS MICROSYSTEMS 
Available from: 

COMPAS MICROSYSTEMS 

224 SE 16th Street 

P.O. Box 687 

Ames, IA 50010 

515/232-8181 


Name: BASIC Modification Package 
System: KIM expanded to run Microsoft-9 digit KIM BASIC 
Memory: Locations DD to EO and 200 to 2E4 used in addition to 
locations in unmodified program. 
Language: Machine 
Hardware: None additional. Optionally supports a terminal with x- 
on/x-off feature. 
Description: Enhancements and modifications to Microsoft 9-digit 
KIM BASIC (sold by Johnson Computer). Machine Language patches 
to original program. BASIC and mods can be loaded with only one 
tape. Jim Butterfield’s Hypertape (and other routines) are relocated 
to low memory on initialization. SAVE and LOAD at Hypertape 
speeds. SAVE and LOAD messages improved. SAVE returns to 
BASIC. Programs with higher line numbers can be appended. This 
means BASIC subroutines, DATA statements and utility programs 
(RENUMBER) can be added after program development. Interrupt 
running programs and listing reliably with ST button. GET (one 
character or digit) command noted and fixed. Terminals with x-on/x- 
off feature will load paper or cassetts tapes perfectly. BASIC 
programs saved on cassette tapes with different initialization con- 
ditions can be used interchangably. A 1/10 sec counter can be star- 
ted, stopped and read under program control. Time and control ex- 
ternal events with this jeffrey counter (named after former student 
and pun intended). 
Copies: > 10 
Price: $15 check or money order. 
Includes: Object code listing, instructions, examples, miscellaneous 
information and help from the author (by correspondence). 
Author: Harvey B. Herman 
Available from: 

Harvey B. Herman 

2512 Berkley Place 

Greensboro NC 27403 


Name: Home Budget System 

System: OSI (Easily modified for PET or Apple 11) 

Memory: 4K 

Language: MICROSOFT BASIC 

Hardware: OSI Challenger IP 

Description: A computerization of my own proven home budget 
system evolved over a 7 year period. Consists of interactive 
programs to add/update accounts, post budget and expenses and 
analyze status of accounts on detailed and summary basis. 4K 
RAM handles up to 15 accounts stored on cassette tape. Data 
stored for each account includes account number, description, 
budget amount, current month expenses, and year-to-date 


expenses. Requires posting only once per month. Helps balance 


checkbook, too! 


Copies: Just released 
Price: $15 


Includes: Cassette (300 baud Kansas City std), user manual with 


complete BASIC listings, operating instructions, and sample runs. 
Author: Bruce Grayson 
Available from: 


B. W. Grayson 
905 Woodridge Drive 
Savannah, Georgia 31410 


Name: PET Library 
System: PET 
Memory: 8K 
Language: Basic, some Assembler 
Hardware: No Special 
Description: A variety of PET programs including games, 
educational, music, astronomy, financial, and many others. 
Copies: 100+ 
Price $2.50 first program $1.50 each additional. 
Includes: Cassette & Postage 
Order Info.: Send Business envelope and postage for complete list 
of programs available. 
Author: Russell Grokett 
Available from: 
PET Library 
401 Monument Rd. #177 
Jacksonville, FLA 32211 


Name: LIFE for the KIM-1 
System: KIM-1 with an XITEX VIDEO BOARD. 
Memory: 2K ($2000-$2800 plus 30 bytes on page zero.) 
Language: Assembler 
Description: This program will play Conway’s game of LIFE. The 
program will plant one living cell in mid-screen, and then ask for 
coordinates, measured from the center, for other living cells. A 
generation takes about 1/6 second for every birth and death. The 
program may be patched to accommodate other video boards. 
Copies: Just released. 
Price: $2.00 for description and listing. 
$5.00 for object tape on cassette in HYPERTAPE format. 

Author: Theodore E. Bridge 
Available from: 

Theodore E. Bridge 

54 Williamsburg Dr. 

Springfield, MA 01108 
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A list of regular publications which have material of William R. Dial 


interest to 6502 users. 


438 Roslyn Ave. 
Akron, OH 44320 





Did you ever wonder just what magazines were the 
richest sources of information on the 6502 micro- 
processor, 6502-based microcomputers, accessory 
hardware and software? For several years this writer 
has been assembling a bibliography 6502 references re- 
lated to hobby computers and small business systems. 
The accompanying list of magazines has been com- 


MICRO 
$15.00 per year 


MICRO 
P.O. Box 6502 
Chelmsford, MA 01824 


6502 USER NOTES 
$13.00 per 6 issues 
Eric Rehnke 
P.O. Box 33093 
Royalton, OH 44133 


OHIO SCIENTIFIC — SMALL SYSTEMS JOURNAL 
$6.00 per year (6 issues) 

Ohio Scientific 

1333 S. Chillicothe Rd. 

Aurora, OH 44202 


PET GAZETTE 

Free bi-monthly (Contributions Accepted) 
Microcomputer Resource Center 
1929 Northport Drive, Room 6 
Madison, Wi 53704 


Robert Purser’s REFERENCE LIST OF COMPUTER 
CASSETTES 
Nov. 1978 $2.00/Feb 1979 $4.00 

Robert Purser 

P.O. Box 466 

Ei Dorado, CA 95623 


THE PAPER (PET) 

$15.00 per year (10 issues) 
The PAPER 
P.O. Box 43 
Audubon, PA 19407 


THE CIDER PRESS (APPLE) 
Scot Kamins 
Box 4816 
San Francisco, CA 94101 


piled from this bibliography. At the top of the list are 
several publications which specializein 6502-related 
subjects. An attempt has been made to give up-to-date 
addresses and subscription rates for the magazines 
cited. Subscription rates are for U.S. Other countries 
normally are higher. 


STEMS FROM APPLE 
Ken Hoggatt 
APPLE PORTLAND PROGRAM LIBRARY 
EXCHANGE 
9195 SW E! Rose Court 
Tigard, OR 97223 


APPLE SEED 
Bill Hyde 
The Computer Shop 
6812 San Pedro 
San Antonio, TX 78216 


KILOBAUD/MICROCOMPUTING 
$18.00 per year 
Kilobaud Magazine 
Peterborough, NH 03458 


BYTE 

$18.00 per year 
Byte Publications, Inc. 
70 Main St. 
Peterborough, NH 03458 


DR. DOBB’S JOURNAL 
$15.00 per year (10 issues) 
People’s Computer Co. 
Box E 
1263 El Camino Real 
Menlo Park, CA 94025 


ON-LINE 

$3.75 per year (18 issues) 
D. H. Beetle 
24695 Santa Cruz Hwy 
Los Gatos, CA 95030 


RECREATIONAL COMPUTING 
(formerly PEORLE’S COMPUTERS) 
$10.00 per year (6 issues) 

People’s Computer Co. 

1263 El Camino Real 

Box E 

Menlo Park, CA 94025 
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INTERFACE AGE 

$18.00 per year 
McPheters, Wolfe & Jones 
16704 Marquardt Ave. 
Cerritos, CA 90701 


POPULAR ELECTRONICS 
$12.00 per year 
Popular Electronics 
One Park Ave. 
New York, NY 10016 


PERSONAL COMPUTING 
$14.00 per year 
Benwill Publishing Corp. 
1050 Commonwealth Ave. 
Boston, MA 02215 


73 MAGAZINE 
$15.00 per year 
73, Inc. 
Peterborough, NH 


CREATIVE COMPUTING 
$15.00 per year 
Creative Computing 
P.O. Box 789-M 
Morristown, NJ 07960 


SSSC INTERFACE 


Southern California Computer Soc. 


1702 Ashland 
Santa Monica, CA 90405 


EDN (Electronic Design News) 
$25.00 per year 

Cahners Publishing Co. 

270 St. Paul St. 

Denver, CO 80206 


RADIO ELECTRONICS 

$8.75 per year 
Gernsback Publications, Inc. 
200 Park Ave., South 
New York, NY 10003 


QST 

$12.00 per year 
American Radio Relay League 
225 Main St. 
Newington, CT 06111 


iEEE Computer 
IEEE 
345 E. 47th St. 
New York, NY 10017 


POLYPHONY 

$4.00 per year 
PAIA Electronics, Inc. 
1020 W. Wilshire Blvd. 
Oklahoma City, OK 73116 


211 


RAINBOW (APPLE) 

$15.00 per year 
Rick Simpson and Terry Landereau, Editors 
P.O. Box 43 
Audubon, PA |9407 


PET USER NOTES 

$5.00 per year (6 or more issues) 
PET User Group 
P.O. Box 371 
Montgomeryville, PA 18936 


CONTACT — User Group Newsletter 
Gratis to Apple owners 

10260 Bandley Drive 

Cupertino, CA 95014 

(408) 996-1010 


SOUTHEASTERN SOFTWARE NEWSLETTER 
(APPLE) 
10 issues $10.00 

George McClelland 

Southeastern Software 

7270 Culpepper Drive 

New Orieans, LA 70126 


COMPUTER MUSIC JOURNAL 
$14.00 per year (6 issues) 
People’s Computer Co. 
Box E 
1010 Doyle St. 
Menlo Park, CA 94025 


POPULAR COMPUTING 
$18.00 per year 
Popular Computing 
Box 272 
Calabasas, CA 91302 


MINI-MICRO SYSTEMS 
$18.00 per year 
Modern Data Service 
5 Kane Industrial Drive 
Hudson, MA 01749 


DIGITAL DESIGN 

$20.00 per year 
Benwill Publishing Corp. 
1050 Commonwealth Ave. 
Boston, MA 02215 


ELECTRONIC DESIGN 

(26 issues per year) 
Hayden Publishing Co., Inc. 
50 Essex St. 
Rochelle Park, NJ 07662 


CALL A.P.P.L.E. 

$10.00 per year (includes dues) 
Apple Puget Sound Program Library Exchange 
6708 39th Ave. SW 
Seattle, WA 98136 


6502 BIBLIOGRAPHY 
PART VI 


William R. Dial 
438 Roslyn Ave. 
Akron, OH 44320 


361. Bridge, Theodore E. "High Speed Cassette I/O for the KIM-1", DDJ 3 Issue 6 No 26, Pg 24-25, 
(June/July, 1978). Will load or dump at 12 times the speed of KIM-1. Supplements the 
MICRO-ADE Editor-Assembler. 


362. Baker, Robert "KIMER: A KIM-1 Timer", Byte 3 No 7 Pg 12, (July, 1978). The program converts 
the KIM-1 into a 2u-hr digital clock. 


363. Conley, David M. “Roulette on Your PET with Bells and Whistles", Personal Computing 2 No 7 Pg 22- 
24 (July, 1978). How to add extras in a program for added interest. 


364.  KIM-1/6502 User Notes, Issue 11, (May, 1978) 

Lewart, Cass R. “An LED Provides Visual Indication of Tape Input". An LED allows you to see 
that the tape recorder is feeding proper signals to KIM. 

Rehnke, E. “Hardware Comparison". The editor compares KIMSI vs. KIM-4 as expansion for KIM. 

Rehnke, E. "Software Comparison". The editor compares the MOS Technology Assembler/Editor 
from ARESCO versus the MICRO-ADE Assembler/Disassembler/Editor from Peter Jennings, 
Toronto. 

Edwards, Lew “Skeet Shoot, with Sound". Butterfield's "Skeet Shoot" modified with the Kush- 
nier's phaser sound routine, for KIM. 

DeJong, Marvin "Digital Cardiotachtometer". KIM counts heartbeats per minute and displays 
count while measuring next pulse period. 

Rehnke, E. "Book review: ‘Programming a Microcomputer: 6502'". Foster Caxton's recent book 
is highly recommended. 

Coppola, Vince "Loan Program in FOCAL". FOCAL-65 is used to figure interest on a loan. 

Flacco, Roy "Joystick Interface". A joystick, some hardware, are used to put the Lunar 
Lander (First Book of KIM) on the face of a Scope. 

Kurtz, Bob "Morse Code Reader Program". Use KIM in the hamshack. 

Zuber, Jim "Interfacing the SWTPC PR-40 Printer to KIM-1". An easy way to use this low cost 
printer. 

Nelis, Jody "Revision to Battleship Game". Modification to correct a small defect in the 
original program. 


365. People's Computers 7 No 1 (July/Aug, 1978). 
Cole, Phyllis "SPOT". Several notes and tips of interest to PET owners. 
Cole, Phyllis "Tape Talk". Notes on problems associated with tape I/O on the PET. 
Gash, Philip "PLOT". Program plots any single-valued function y(x) on a grid. 
Julin, Randall "Video Mixer", A circuit to mix the three video signals put out by the 
PET's IEEE 488-bus. 
Bueck/Jenkins "PETting a DIABLO". How to make PET write using a Diablo daisy wheel printer. 


366. Harr, Robt. Jr. and Poss, Gary F. "TV Pattern Generator", Interface Age 3 Issue 8 Pg 80-82; 160, 
(Aug, 1978). Pattern generator in graphics for the Apple II monitor. 


367. Personal Computing 2 No 8 (Aug, 1978). 
Maloof, Darryl M. "PET Strings" (letter to Editor). Note on changing a character string 
to numeric values and vice-versa. 
Connors, Bob "PET Strings" (letter to Editor). More on changing character strings to 
numeric values. 
Bueck/Jenkins “Talking PET" (letter to the Editor). Notes on the interfacing of a Diablo 
daisy wheel printer with PET through the PET ADA device. 


368. Lasher, Dana "The Kalculating KIM-1", 73 Magazine, No 215 Pg 100-104 (Aug, 1978). Calculator 
versatility for any KIM is provided by interfacing a calculator chip and a scanning routine 
with KIM. 


369. OSI-Small Systems Journal 2 No 2 (Mar/Apr, 1978). 
Anon. "The 542 Polled Keyboard Interface". Polled keyboards have many advantages over 
standard ASCII keyboards. - 
Anon. "Basic and Machine Code Interfaces", This is the first in a series of articles on 
BASIC and machine code. 
Anon. "Using the Model 22 OKIDATA Printer". A quick and dirty way to use those special 
font and scroll commands of the Model 22 OKIDATA Printer. 
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370. Dr. Dobbs Journal 3 Issue 7 No 27 (Aug, 1978). 
Moser, Carl "Fast Cassette Interface for the 6502". Record and load at 1600 baud. 
Meyer, Bennett "Yet Another 6502 Disassembler Fix". Changes to correct a number of errors 
in the five digit codes used for deciphering the instructions in the BASIC language 
disassembler published earlier in DDJ 3 No 1. 
Anon. “Apple Users Can Access Dow Jones Information Service". With a telephone link-up, 
Apple II users can dial Dow Jones Information Service. 


371. Kilobaud Issue 21 (Sept, 1978). 

Wells, Ralph "Trouble Shooters' Corner". Another chapter in the saga of the compatibility 
of the Apple II with a VIA/PIA. See EDN May 20,1978; MICRO Issue 5, Pg 18, June/July, 
1978. 

Tenny, Ralph “Troubleshooters! Guide", Useful suggestions for those tackling repair and 
interfacing problems. 

Young, George "Do-It-All Expansion Board for KIM". How to make an expansion board, expan- 
sion power supply, new enclosure, etc., for your KIM-1. 

Ketchum, Don "KIM Organ". Play tunes directly from the KIM keyboard. 

Grina, James "Super Cheap 2708 Programmer". An easy-—to-build PROM programmer driven by 
the KIM-1. 


372. Conway, John "Glitches Can Turn Your Simple Interface Task into a Nightmare". Difficulties 
in using an Apple II with a PIA in an I/O interface, apparently caused by a clock signal 
arriving a little early. 


373- Notley, M. Garth "Plugging the KIM-2 Gap". Byte 3 No 9 Pg 123 (Sept, 1978). How to map the 
KIM-1 address range of 0400 to 13FF into a KIM-2 address range of 1000 to 1FFF. 


374. Turner, Bill and Warren, Carl "How to Load Floppy ROM No 5", Interface Age 3 No 9 Pg 60-61 
(Sept, 1978). Side No 1 is in Apple II format at 1200 baud, "The Automated Dress Pattern". 


375. Smith, Wm. V.R. III "The Automated Dress Pattern for the Apple II". Interface Age 3 No 9 
Pg 76-81 (Sept, 1978). A MeCalls pattern is the basis for the program and accompanying 
Floppy ROM. 


376. MICRO Issue 6 (Aug/Sept, 1978). 
Husbands, Charles R. "Design of a PET/TTY Interface". Describes the hardware interface and 
software to use the ASR 33 Teletype as a printing facility for the PET. 
Faraday, Michael "Shaping Up Your Apple". Information on using Apple II's High Resolution 


Graphics. 
Eliason, Andrew H. “Apple II Starwars Theme". Disassembler listing of theme from Star Wars. 


Bishop, Robert J. "Apple PI". How to calculate PI to 1000 places on your Apple II. 

McCann, Michael J. "A Simple 6502 Assembler for the PET". Learn to use Machine language 
with this assembler. | 

Rowe, Mike "The Micro Software Catalog: III". Software listing for 6502 systems. 

Gaspar, Albert “A Debugging Aid for the KIM-1". A program designed to assist the user in 
debugging and manipulating programs. 

DeJong, Marvin L. "6502 Interfacing for Beginners: Address Decoding II". Good tutorial 


article. 
Suitor, Richard F. "Brown and White and Colored All Over". Discussion of the colors in the 


Apple and their relation to each other and the color numbers. 
Witt, James R.. "Programming a Micro-Computer: 6502 by Caxton Foster". More accolades for 


this fine book. 
Merritt, Cal E. "PET Composite Video Output". How to get video output for additional 


monitors. 
Quosig, Karl E. “Power from the PET". How to tap the unregulated 8v and regulate to 5v. 
Suitor, Richard F. "Apple Integer BASIC Subroutine Pack and Load". Loading assembly 


language programs with a BASIC program. 
Creighton, Gary A. "A Partial List of PET Scratch Pad Memory". Tabulation of a number of 


important addresses. 


377- Corbett, C. "A Mighty MICROMITE". Personal Computer World 1 No 4 Pg 12 (Aug, 1978). Descriptive 
article on the KIM-1 for the European and British readers. 


378. Coll, John and Sweeten, Charles "Colour is an Apple II". Personal Computing World 1 No 4 Pg 
50-55 (Aug, 1978). Description of the Apple II. 


379. North, Steve "PET Cassettes from Peninsula School". Creative Computing 4 No 5 Pg 68 (Sept/Oct, 


1978). A number of programs written in PILOT, a language designed for CAI dialog applica- 
tions. This requires a program to interpret PILOT in Basic. 
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389, aordon, H. T. "Use of NOPCODES as Executable Labels", Dr Dobb's Journal 3, Issue 8 No 28 
pg 29 (Sept., 1978). Discusses the use of nopcodes in 650X devices. Classifies 
these as monops (6 listed) and binopcodes (5 listed) and trinops (8 listed). 


381. Swank, Joel "A Programmable IC Tester for KIM", DDJ 3 Issue 8 no 28 pg 33 (Sept., 1978) 


With a 6820 PIA, some 7404 buffers and a ZIF 16 pin socket together with a program 
KIM-1 can test IC's. 


382. People's Computers_7 No 2 (Sept./Oct., 1978) 
Zimmermann, Mark "Snooping With Your PET". A&A sophisticated Guide to PEEKing and 
-POKEing around in PET. 
Gaines, John “Apple Math". A math program for the Apple II. 
Cole, Phyllis "SPOT" (Tips for PET trainers) - Discussion of the slow documentation 


for the PET. Program for lining up dollars/cents tabulations. PET listing 
conventions. 


383. Conway, John "A Tape-to-Microcomputer-Hardware Interface Requires a Wealth of Micro- 
techniques". EDN 23 No 6 pg 101-110 (March 20, 1978). EDN project Indecomp tape 
interface hardware. Also the first hint of problems in interfacing Apple II with 
a PIA. 


384, Hemenway, Jack BE. "Add Floppies to Your Microcomputer to Form a Real Microcomputer 
System". EDN 23 No 12 pg 98-107 (June 20, 1978) re: May 20 EDN problems with tape 
hardware interfaces for Apple II. Also, EDN 23 discusses disk interface hardware, 
Final test to come. 


385. Kilobaud Issue 23 (Oct., 1978) 

Trageser, Jim "Budget System with KIM". How to expand your KIM system with ASCII 
keyboard, TVT-6 and associated software. | 

Ngai, Philip “Build a One-Chip Single Stepper". A debugging aid for home-brewed 6502 
systems. 

Kurtz, Robert L. “World of the Brass Pounders: Receive Morse Code the Easy Way". 
This Morse code reader is a good example of how the microcomputer can serve the 
radio amateur. Uses KIM-1. 

Borland, D. "Pinancier/Mortgage with Prepayment". A pair of PET programs from 
Kilobaud's Instant Software line. 

Beymer, Easton "Universal Number Converter". A program in PET BASIC for converting 
from one number base to another. Not only hex, decimal, octal and binary, but 
others. 

Grossman,,Rick "Do It with a KIMSI". Use S-100 boards with the KIM. An evaluation. 

Bishop, Robert J. "The Remarkable Apple II". A description and evaluation of the 
Apple II by a veteran 6502 programmer. 


386. Palenik, Les "Formatting Dollars and Cents". Byte 3 No 10 pg 68 (Oct., 1978) This program 


for the PET rounds the monetary amount to the nearest cent and lines up the decimal 
points. 


387. Bishop, Robert J. "Maze" Byte 3 No 10 pg 136-138 (Oct., 1978). This novelty program 
generates and displays a different maze about once a minute. 


388. 6502 User Notes 12 (Nov., 1978) 


Flacco, Rey "Scope Lunar Lander--final installment". The last part of a series in- 
corporating graphics into the KIM-1 Lunar lander program. 
Allen, Michael "TVT6 Etch-A-Sketch". A sketch routine for the KIM/TVT6 said to 
overcome the limitations imposed by a snowy screen during program execution. 
Hooper, Philip K. "TVT6" - Some cheap, easy and helpful TVT6 hardware modifications. 
Clem, D. “Expansion Decoding". One possible configuration of expansion decoding for 
KIM is said to be designed witn TVT6 in mind. 
Lewart, Cass and Lewart, Dan "TVT6 Remarks". Notes on improving the operation of the 
KIM/TVT6 systen. 
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6502 User Notes 12 (Nov., 1978) con't. 
Kushnier, Ronald "Notes on the TVT6". Information on memory expansion, the TVT6/KIM 
as a terminal, assembly of the TVT 6, the PVI-1K kit, KIM modification and use 
of the TVT6 with the Radio Shack keyboard. 


Brachman, Michael “Suggestions for Running the TVT6". Includes a slight software 
mod to display pages 02,03,00 consecutively filling the whole screen (24 line x 
64 character display. 

Anon, "FOCAL" Staff evaluation of FOCAL for the 6502. 

Latham, Don J. "Letter to the Editor". Comments on tape Storage problems, KIMSI, 
XITEX, TVT6,Microsoft Basic, FCL-65, etc. 

Rehnke, Eric "The Cheap Video Cookbook" - a book review. Very favorable review of 
Don Lancaster's latest book. 

Martin, Timothy "KIM Interval Timers". Useful precautions in using the KIM interval 
timers are given. 


389. MICRO, No 7 (Oct./Nov., 1978) 

Auricchio, Rick “Breaker:An Apple II Debugging Aid". BREAKER is a software routine 
to manage Breakpoints, correctly resuming the user program after hitting a breakpoint 

Watson, Allen III "MOS 16K RAM for the Apple II. Speed codes used by 16K Dynamic RAM 
manufacturers. The author advises against using 300 ns access time chips. 

Creighton, Gary A. “PET Update". Discussion of the RND function, USR, Machine 
Language Storing in Basic, Save and Load, etc. 

De Jong, Marvin L. "6502 Interfacing for Beginners; The Control Signals". The latest 
article in this series discusses the theororetical basis and progresses to hard- 
ware and a program for experimenting with control signals. 

Shryock, William H., Jr. "Improved Star Battle Sound Effects". Further improvements 
-based on the original article by Andrew H. Eliason in Issue no 6 of MICRO. 


Green, J.S. "650X Opcode Sequence Matcher". A program that correlates and points 
to parallel sequences of opcodes, comparing the two sets and displaying the 
differences. 

McCann, Michael J. "A Memory Test Program for the PET". Program is written in 
Commodore BASIC and occupies the lowest 4K of memory. 

Rowe, Mike (Micro Staff) "The MICRO Software Catalog: IV" Ten more programs are 
reviewed in this continuing series. 

Schwartz, Marc "Apple Calls and Hex-Decimal Conversion". How to access machine 
language routines by Calls and how to use Apple in helping make the hex-decimal 
conversion. 

Dial, William R. "6502 Bibliography: Part VI". The 6502 literature continues to expand. 

Dial, William R. "6502 Information Resources". A list of the magazines used in com- 
piling the 6502 Bibliography and their subscription prices. 


Powlette, Joseph L. and Wright, Charles T. "KIM-1 a Digital Voltmeter". Hardware and 
Software to convert the KIM-1 to use as a digital readout voltmeter. 

Miller, Fred "Cassette Tape Controller". Control two tape units with your KIM. 

Eliason, Andrew H. “Apple II High Resolution Graphies Memory Organization". A useful 
contribution toward better understanding of the Apple II HIRES Graphics. 

DeJong, Marvin L., Riverside Electronics Design's KEM and MVM-1024: A User's Evalua- 
tion". A generally favorable evaluation of the KEM expansion board for KIM 
and the keyboard/video monitor board. 

Sullivan, Chris "A Digital Clock Program for the SYM-1". This 24-hour clock program 
provides a good way for the new SYM owner to become familiar with the monitor 
subroutines. 

Herman, Harvey B. "Peeking at PET's Basic". The PEEK function is used to look at the 
BASIC itself. 


Tepperman, Barry "Kimbase". A program to convert from almost any number system to 
another. Contains many useful subroutines for multiplying, dividing and other 
uses. 


390. Anon, "Tone Routine for Apple II". Southeastern Software Newsletter Issue No 3 pg 6 
(Oct., 1978) The tone routine used with Apple Integer Basic can be used with Applesoft 
but must be relocated. 


391. Haller, George "Storing and Recoving Data in Applesoft II". Southeastern Software News- 
letter Issue No 2 pg 4 (Sept, 1978) Program for storing and recoving data in 
Applesoft II. 
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392. Call - APPLE 1 No 6 


93. Call 


94. Call 


95. Call 


Williams, Don "Key Klicker Routine". A machine language program to provide a click each 
time your silent keyboard is punched 

Anon, "Routine to Find Page Length". A routine to fill a page with repetitive material 
or to determine the length of a screen page of print statements. 


Anon, "Printer Driver Fixes". A short program to prevent problems when using the 
Apple with a printer with more than 40 columns. 
Anon, "Apple II Mini-Assembler". Discussion of the Apple II mini-assembler. 


Aldrich, Darrell "Use of Color Mask Byte in HIRES". Brief description of this im- 
portant aspect of Apple HIRES. 

Anon, “Memory Map-Apple II with Applesoft Basic Loaded". Convenient tabulation of 
memory positions. 

Anon, "List of Handy Calls". Sixteen calls are listed for the Apple II. 

Apple Computer Staff "System Monitor". Discussion of how to get the most out of your 
Apple Monitor. 

Huelsdonk, Bob “Memory Test". A test for Apple memory by loading each location with 
55, testing, loading with AA and testing. Offending address will be shown. 


- APPLE 1. No 7 (August, 1978) 

Golding, Val J. "A Disk Utility Program". A program to record a group of programs on 
tape from a disk. . 

Backman, J. A. “Poor Man's HEX-DECIMAL-HEX Converter". With this table and a scratch- 
pad, conversions are a snap. 

Thyng, Mike “Basic File Handling". Discussion of the actual commands necessary to get 
data to and from diskettes using the Apple with a PERSCI disk drive. 

Apple Computer Staff "System Monitor". Cassette I/O's, Memory Move and Verify, De- 
bugging Aids, Single Stepping, Tracing, using the Apple II monitor. 

Anon "Applesoft Zero Page Usage". Explanation of the functions residing in page zero 
of Apple II. 

Huelsdonk, Bob “Routine to Print Free Bytes". Routine for Apple II with less than 32K 
memory. 

Huelsdonk, Bob "A Patch for Double Loops". Discussion of precautions to use with 
with double loops in Applesoft on the APPLE II. 

Apple Computer Staff "Loading Machine Language as Part of a Basic Program". Reprinted 
from Contact No 1, May 1978. Provides a way to include a machine language pro- 
gram within a Basic Program. 


- APPLE 1 No 8 (Sept., 1978) 

Aldrich, Ron "Convert". Program Loads Integer Basic Program from Disk, saves to a 
text file on disk, then executes that file in Applesoft II. 

Thyng, Mike “Arrays". A description of the use of arrays with the Apple. 

Chapman, Dan “Video Display Organization". A program to demonstrate the Video 
Display organization. 

Anon "Routine to Save an Array". (reprinted from Apple Stems Vol 1 No 2 July, 1978) 
A routine to save both integer or floating point real numbers in an Applesoft 
II array. 

Lam, S.H. “Monitor Commands from Basic’ This routine allows execution of Apple Monitor 
commands from Basic with return to Basic. 

Williams, Don “Linkage Routines for the Apple II Integer Basic Floating Point Package". 
A discussion of the Apple II ROM routines. 


Hill, Alan G. “Return to TEXT from Graphics". A handy routine which permits the use 


of Control Y to return to Text from Apple Graphics. 

Anon "Integral Data IP 125-225 Driver". A slight modification of the Apple Red Book 
teletype routine for use with the Integral Data printer. 

Huelsdonk, Bob "Printer Driver Fixes". Protocol to use a printer with more than 40 
columns with the Apple. 


- APPLE 1No 9 (Oct., 1978) 

Cook, John B. “Applesoft Tone Routines". Relocation of the tone routines is necessary 
for use with Applesoft II on the Apple. 

Scott, Michael M. "A Brief History of Apple". An interesting account by the President of 
Apple Computer Co. 
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Call - APPLE 1No 9 (Oct., 1978) cont. 


Anon, “Some Basic Entry Points". Various Call and JSR functions for Apple basic. 

Huelsdonk, Bob “Sample File Handler". A program that demonstrates and will establish 
files for data handling, using the DOS on Apple. 

Golding, Val and Williams, Don “Apple II Integer Basic: Interpretation of Memory". 
Tabular listing of pointers and tokens for Apple II Integer Basic. 

Golding, Val “Applesoft II Tokens". Memory tabulation for tokens and pointers 
of Applesoft II Basic for the Apple. 


396. PET Gazette 1 No 5 (Aug./Sept., 1978) 

Anon, "PET Standards". Standards are suggested for writing PET programs, graphics, 
music listings, etc. 

Louder, Mike "Dynamic Keyboard". Discussion of methods to change lines in Basic 
programs while the PET is running. 

Richter, Mike "Data Files". Recommended procedures in preparing tapes for exchange. 

Anon, "PET Memory Map". Map reprinted from the PET Paper. 

Staebell, Jon "PET Hints". Miscellaneous hints for PET owners. 

Modeen, Roger L. “Easy Auto Answer/Originate Modem". Modem for the PET. 

Clark, Ken "Proposed Temporary Local Standard for Low Speed Data Exchange by Modem", 
Protocals for data exchange. 

Cumberton, Dennis "File Manager". A program for reliable data reading and writing 
with the PET. 

Bendoritis, Bill “Renumber". A renumbering program for the PET. 
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397. Babcock, Robert E. “1C Tester Using the KIM-1” 


Ham Radio 11 No 11 pg 74-76 (Nov., 1978) 
Test the 7400 series IC’s using the KIM-1, a minimum of hardware and tables of parameters tucked away in memory. 


398. Purser, Robert “Software List” 
Robert Purser’s Reference List of Computer Cassettes, Edition 3, August, 1978 (P.O. Box 466, El Dorado, CA 95623 
A very complete listing of available Cassette software for the PET and Apple II. 


399. Lilie, Paul A. “Look What Followed Me Home!” 


73 Magazine No 218 pg 142-147 (Nov., 1978) 
A description of the PET. 


400. Creason, Sam “The Micro Maestro!” 
73 Magazine No. 218 pg 150-166 (Nov., 1978) 
Sound generation and waveform control with the 6502. 


401. Akingbehin, Kiumi “LEDIP, A KIM/6502 Test Editor” 
Dr. Dobb’s Journal 3 Issue 9 No 29 pg 4-12 (Oct., 1978) 
Here is an expandable program for creating text and source code. 


402. Tepperman, Barry “Comments on KIM Cassette Program” 

Dr. Dobb’s Journal 3 Issue 9 No 29 pg 41 (Oct., 1978) 
Points out that the relatively slow speed of the KIM cassette program has led to the publication of several high-speed 
load/dump programs. 


403. Firebaugh, Morris; Johnson, Luther and Stone, William “A Feast of Microcomputers” 


Personal Computing 2 No 11 pg 60-70 (Nov., 1978) 
The Authors evaluated a wide range of microcomputers to pick the best ones for teaching science students. Includes 


several 6502 micros. 


404. Creative Computing 4 No 6 [Nov./Dec., 1978] 


Foote, Gary A. “Apple Speed” 
A comparison of several programs for sorting a group of 1000 words showed several BASIC programs to require 600 
to 650 seconds on the Apple !! while usir » the same sort in Sweet-16 required only 158 seconds. The same sort in 
6502 assembler required only 3 seconds. 


Ahl, David “Random Ramblings” 
Commodore plans to make an electronic ches game based on the 6504 chip of MOS Technology. 


Yob, Gregory “Personal Electronic Transactions” 
A column on the PET with software references, hints on operating, etc. 


Milewski, Richard A. “Apple-Cart’” 
A column on the Apple II with software reviews. 


Butterfield, Jim “Games—Not Just For Fun” 
The author urges micro users to have fun with their computers; don’t be ashamed of games and recreational 
programs. Creating programs is in itself a highly instructive experience. 


405. Dinnell, Rob C. “Graphics Program” 


Interface Age 3 Issue 11 pg 14 (Nov., 1978) 
Graphics program for the Apple IH. 


406. Schumacher, Ernst “Sweets for KIM Spurned” 


Byte 3 No 11 pg 146 (Nov., 1978) 
A fix for a bug in the Sweets for KIM program, Byte Feb., 1978 pg 62. 
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407. Creative Computing 4 No 5 [Sept./Oct., 1978] 

Ahl, D.H. “Personal Computing: The size of the Market’ 
Out of a total market for personal computers sold in the first three years of 150,000 units, PET is said to account for 
15000, TRS-80 for 8000 to 20000 and Apple for 25000 units. All others together account for 75000 to 100000. 


Ahi, D.H. “The Home Computer: A Tool Not A Toy” 
An interview with Mike Scott, President, Apple Computer. 


Ahl, D.H. “Home Computers: The Name of the Game is Peripherals” 
An interview with Chuck Peddle, designer of the Commodore PET. 


Ahl, D.H. “Reliability and Mass Production” 
The most frequent computer problems over all manufacturers including the 6502 types fall into two categories: (1) 
Cassette recorder, mostly head misalignment and (2) overheating errors after running a while. 


North, Steve “PET Cassettes from Peninsula School” 
A review of software available from the Peninsula School of Monlo Park, CA. 


408. Anon, “12-Test Benchmark Study Results Show How Three Microprocessors Stack Up” 


EDN 22 No 21 pg 19 (Nov. 20, 1978) 
Once again the 6502 is shown to be substantially faster than the 8080 or 6800, as well as using less memory. 


409. Anon, “Project Indecomp--EDN Builds a computer System” 

EDN 22 No 21 pg 221-233 (Nov. 20, 1978) 
Outlines the beginning of this project that was to provide material for a number of articles to follow, principally on 
methods of interfacing to a tape deck. 


410 Schreirer, Paul G. “Low-Cost System Requirements Multiply Interface Headaches” 


EDN 23 No 3 pg 39-44 (Feb. 5, 1978) 
Interconnecting a cassette system to Indecomp proved tough due to strong chip-discrimination against the 6502 in 


this 8080/Z80 world. 


411 Call - Apple 1 No 10 [Nov./Dec., 1978] 
Anon, “Use of Apple I! Color Graphics in Assembly Language” 
Tutorial article on graphics 


Jackson, Gene “Checkbook Changes for Disk” 
Modifications for this popular program for the Apple Disk. 


Paulson, Steve, “Using Game-Paddle Buttons” 
How to change keyboard control over to the paddle buttons. 


Anon, “& Now, the Further Adventures of the Mysterious Ampersand.” 
Continued from last month—more on the functions of the character “&”, in Applesoft routines. 


Wigginton, R. “Simple Tones-A Demonstration for Extensions to Applesoft 11.” 
Simple tone program for Applesoft !| inside the Applesoft Program. 


Finn, Jeffrey K. “Apple-Sharing” Part | of II 
Part | of a tutorial article on time sharing and the Apple. 


Thyng, Mike “Apple Mash” 
This issue discusses how and why the DIMensioned statement works, Alpha String arrays, Integar and Floating Point 


Arrays, etc. 


Anon, “Peeks, Pokes and Calls” 
A discussion of the utility of these very useful tools. 


Thyng, Mike “Apple Source” 
Question and answer session with Mike Scott, President of Apple Computer and Randy Wigginton of Apple. 
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Golding, Val J. “Identifying Binary Disk Programs” 
Ways to help you save and identify machine language programs on disk. 


Anon, “Resurecting a Dead FP Program.” | 
Methods to help you retrieve an Applesoft II program that has blown up while you were working on it. 


412. Southeastern Software Newsletter Issue No 4 [Nov., 1978] 

Anon, “Hires Graphics” 
Examples of how to program in Hires machine language. Also includes a program in Applesoft I! called Random 
Walk 


Anon, “How to Use “Quotation” Marks in a Print Statement.” 
Tricky in Applesoft II to make the quote marks print. 


Hartley, Tim “How Memory is interpreted in Integar Basic” 
A program to list the tokens used in Integar Basic. 


Banks, Guil “Programs for Disk” 
Two programs are given. EXEC GEN and READ FILE. 


Anon, “Applesoft in Firmware” 
A discussion of the use of the Applesoft I] ROM card. 


413. Carpenter, C.R. [Chuck] “Pilot for the Apple” 
People’s Computers 7 No 3 pg 4 (Nov./Dec., 1978) 
An extended version of PILOT for the Apple Disc II is being written. 


414 Cole, Phyllis “SPOT” 

People’s Computers 7 No 3 pg 48-51 (Nov./Dec., 1978) 
Hints on using the Commodore PET include tips for loading balky tapes from the cassette, adding an auxilliary 
keyboard, and review of new software. 


415. Greenberg, Gary “Phone Directory” 
Personal Computing 2 No 12 pg 34-35 (December, 1978) 
A PET program provides rapid access to a phone number without a random access filing system. 


416. Zimmermann, Mark “Assembler for the PET” 
Personal Computing 2 No 12 pg 42-45 (December, 1978) 
This BASIC program lets you write in Assembly Language. 


417. Gable, G.H. “Zapper-A Computer Driven EROM Programmer” 
Byte 3 no 12 pg 100-106 (December, 1978) 
The Zapper is a Erom programmer using a KIM-1 as driver for the Zapper. 


418. Watson, Allen, Ill 430 Lakeview Way, Redwood City, CA 94062 


Byte 3 No 12 pg 208 (December, 1978) 
Notes on minimizing TV interference by the Apple II. 


419. Lantz, Kim H. “RTTY with the KIM” 


73 Magazine Issue 219 pg 170-173 (December, 1978) 
This article goes a step further and uses the KIM to deliver the RTTY to the HAL terminal. 


420. Anon. “Bringing up the New Disk” 

Southeastern Software Newsletter Issue No 5, Pg 2 (Dec., 1978) 
Hints and Kinks on putting that newly delivered Apple Disk to work. Making duplicate masters, creating random 
files, reading back files, transferring programs from one disk to another for backup, etc. 
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421. 


422. 


423. 


PURSER, ROBERT E. “Reference List of TRS-80, PET and APPLE 11 Computer Cassettes” 
Edition 4, November, 1978 (P.O. Box 466, El Dorado, CA 95623 
A very complete listing of software for the Apple 11 and PET is given. A few software reviews are given. 


MICRO No 8 (Dec., 1978-Jan., 1979) 
De Jong, Marvin L. 6502 Interfacing for Beginners: Buffering the Busses” 
The author continues his series of tutorial articles discussing the need for buffers, types of buffer chips and some ex- 
experiments and an application. ; 
Anon. “Microbes” 
An entire section of code from “Breaker: An Apple |! Debugging Aid’’ MICRO NO 7 pg 5 was omitted and is given in this 
correction. Also a correction for Husband's ‘Design of a PET TTY Interface” Micro No. 6 pg 5. 
Suitor, Richard F. “Life for your Apple” 
A new version of LIFE has the generation calculations in assembly language to speed the program. 
Reich, Dr. L.S. ‘‘Computer-Determined Kinetic Parameters in Thermal Analysis” 
A program for the quantitative estimation of kinetic parameters for the material being degraded such as activation energy 
and reaction order. Uses Apple I. 
Christensen, Alan K. “Continuous Motion Graphics or How to Fake a Joystick with the PET” 
Basic supported routines are too slow to allow smooth movement. Action is enhanced by direct access of screen and 
keyboard. 
Powlette, Joseph L. and Jeffery, Donald C. “Storage Scope Revisited” 
With the hardware changes suggested in this article the performance of DejJong’s program to transform an ordinary 
oscilloscope to a storage scope gives results approaching those of a commercial unit. 
Auricchio, Rick, “An Apple I Program Relocator’ 
A program to move an Assembly language program to another part of memory. Changes all absolute references within the 
program. 
Gieryic, John, “SYM-1 Tape Directory’ 
Program to allow the SYM owner to examine his cassette tape to find what information is there. 
Anon. “The Best of MICRO Volume 1” 
A book containing most of the articles that were published in MICRO Volume 1. 
Butterfield, Jim “Inside PET Basic’ 
Two new programs for PET. FIND will search a PET BASIC program for a particular data string that will list the lines 
containing the string. RESEQUENCE will renumber your program fixing up GOTO’s and other functions. 
Connolly, M.R. Jr. “An Apple If Page 1 Map” 
This article shows a clever method of creating all sorts of nifty effects, title pages, etc., on your Apple. 
Dial, Wm R. “6502 Bibliography, Part VI” 
Some 88 more references to the growing 6502 literature. 


PET Gazette (Oct./Nov., 1978) 
Anon. “Software Reviews — PET” 
Many reviews of PET software are to be found scattered through this issue of the Gazette. Also review of many new 
hardware items for PET. 
Staebel, Jon “PET Hints” 
PET Gazette 1 No 6 pg 6, (Oct./Nov., 1978) 
A discussion of the timer and built-in clock in the PET, examples of use. How to stimulate a repeat key on the PET. 
Barsanian A. “Tape Tips” 
PET Gazette 1 No 6 pg 8-9 (Oct./Nov., 1978) 
Some sensible tips on using PET tape cassettes, storage, copying. How to locate one program out of many on a tape. 
Cumberton, Dennis “Tape Tips” 
PET Gazette 1 No 6 pg 9(Oct./Nov., 1978) 
Recommendations on the use of C-30 cassettes stripped down to C-10 equivalent. Comments on brands found 
satisfactory. ° 
Stone, Mike “Program Overlays” 
PET Gazette 1 No 6 pg 11-13 (OCT./Nov., 1978) 
Joining two programs. 
Anon. “New PET Booklet-PET Communicates with the Outside World” 
PET Gazette 1 No 6 pg 15-19 (Oct./Nov., 1978) 
Summary of the important information released including pinout for Parallel User Port, Second Cassette Interface, and 
Memory Expansion Connector. IEEE Bus Limitations, {0 Commands, I/O operations, Recording techniques, Error 
Detection, etc., etc. 
Lindsay, Len ‘‘Kilobaud Column for PET Users” 
Hints on programming with your PET, Use of the GET command. 
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424. 


425. 


426. 


427. 


428. 


Dr. Dobb’s Journal 3 issue 10 No. 30 (Nov./Dec., 1978) 
Bridge, Theodore E. “A Curve-Fitting Program Using a Focal Interpreter on the KIM-1” 
Focal is used with the KIM in a curve-fitting program. 


Swanks, Joel “Tiny GRAFIX for Tiny BASIC” 
Grafix is a system for graphic display on a small computer system, including Pittman’s Tiny Basic, a SWTPC GT-6144 TV 


Graphics board, some machine language subroutines and a KIM-1 with 4K of memory. 


Oliver, John P. “Astronomy Application for PET FORTH” 
Using a newly available language PET-FORTH version 1.0, a PET was used to provide control functions for a telescope. 


Kilobaud No. 25 (Jan., 1979) 


Lindsay, len “PET Pourri” 
A new column on the PET has sections discussing Accessories, Publications, Software, Programming Hints, and PET 


Problems. A very helpful series of hints on Cassette recorder maintenance and saving data is included. 

Brisson, Dennis ‘‘New Products” 

6502 products include reviews on weight control/biorythm programs, a telephone cost-control center, the RS-16-HP 
“universal” interface for PET, a 6502 Assember for PET, a PET Word Processor, etc. 


Fuller, Steve “OSI User Group” 
The Newton Software Exchange, PO Box 518, Newton Center, MA 02158, is forming a user’s group for OS! products, 


especially the Challenger series. 
Anon, “Letters”’ 
This month 6502 letters refer to the November article “Do It with a KIMSI’, the September Article “Super Cheap 2708 
programmer, etc. 
Lang, George E. “u-Panel’”’ 
See the reaction of every register of your microprocessor as you single step your KIM through a program. 
Ketchum, Don ‘Display Your PET” 
Watch the Monitor screen as all 316 PET characters appear on the Screen 
Carpenter, Charles R. “SHHH... People are Sleeping” 
The Telpar PS-40-3C-1 serves as a quiet and economical substitute for a noisy and expensive teletype. 
Yob, Gregory “PET Techniques Explained” 
Supplementing information from Commodore, this article gives information on cassette files. 


Calculators/Computers Magazine 2 Issue 7 (Nov./Dec., 1978) 

Costello, Scott H. ‘““Hilo-A Number-Guessing Program that Illustrates Several Math Concepts” 
Modifications for the program to run on several different computers, including PET are given. A number of variations 
are suggested. 

Albrecht, Bob and Albrecht, Karl “PET BASIC for Parents and Teachers” 
An explanation of many of the keys on the PET keyboard. 


Dr. Dobb’s Journal 4 Issue 1 Number 31 (Jan., 1979) 
Seiler, Bill “PET BASIC Renumber’” 
A program to put your line numbers in a more ordinary list. 
Moser, Carl W. “Add a Trap Vector for Unimplemented 6502 Opcodes” 
Ideas on how to provide hardware and a program to ferret out those hidden opcodes 
Aresco, P.O. Box 43, Audubon, PA 19407 “6K Assembler/Text Editor for Apple II” 
A 6K machine language for the Apple II. 
Terc Services, 575 Technology Sq., Cambridge MA 02139 “KIM-1 Interface Set’ 
Permits easy access to the I/O ports on the KIM. 


Byte 4.No. 1 (Jan., 1979) 
Helmers, Carl ‘Pascal Progress” 
The University of Calif at San Diego plans to make the UCSD Pascal system available on Apple !| computer early in 1979. 
PRS The Program of the MonthCorporation, 257 Central Park West New York, N.Y. 10024 
A2FP is a Plotting Program for Apple I! which plots 2-dimensional functions in high resolution graphics. 
Leff, Alan A. and Boos, D.L. ‘A Timely Modification to KIMER” 
Modification of the Baker program “‘Kimer: A KIM-1 Timer’ Byte, July 1978, pg 12 to allow it to run as 12 hour clock. 
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429. Recreational Computing 7 No 4 Iss 37 (Jan./Feb., 1979) 


430. 


431. 


432. 


433. 


434, 


Carpenter, Churck “APPLE It Easy !/O Sensing and Control’. 1/O control using the Apple #1 game connector. 

Wells, Arthur Jr. “Some New Uses for Apple Il’. Debugging PONG, use of Modem, etc. 

Shanis, Daniel’ Breaking Trail in Alaska with Apple I’. A project using 32K Apple Il computers with diskettes 
in 9 remote village schools. 

Swenson, Carl “Building a HI-RES SHAPE TABLE for the APPLE II’. Heres a way to create your favorite shapes. 

Saal, Harry “SPOT”. Tips for the PET Owners. A machine language tape with two BASIC programs is available 
from Commodore. Also a manual on communication with the outside world. A PET SERVICE KIT from 
Commodore includes schematic diagrams and parts lists, a diagnostic jumper connector with diagnostic 
tapes, etc. Information on the “lost cusor fix’. Head Alignment. 


MICRO No 9 (Feb., 1979) 

Reich, Dr. L.S. ‘Long Distance Interstate Telephone Rates”. An Applesoft || program for phone rates which can 
be modified for PET or OS! computers. 

Bullard, GARY J. “The Sieve of Eratosthenes’’. A prime numbers BASIC program for the PET. 

Hertzfeld, Andy ‘Exploring the Apple I! DOS”. Useful information for disk users. 

DeJong, Marvin L. “6502 Interfacing for Beginners: An ASCII Keyboard Import Port’. Shows a system for the 
KIM with both polled or interrupt methods of service the device. 

Tater, Gary L. ‘‘Two Short TIM Programs”. One program provides a method for communcation with TIM at 
1200 BAUD or higher. Another offers a TIM Operating System Menu. 

Tripp, Robert M. PhD “Ask the Doctor-Part 1”. A comparison of the KIM, SYM and AIM microcomputers. 

Watson, Allen ““Two APPLE Il Assemblers: A comparative Software Review’. Advantages and disadvantages 
of the Microproducts and S-C Assemblers for the Apple I. 

Rowe, Mike ‘THe MICRO Software Catalog: V’’. Reviews of about one dozer programs for 6502 based systems. 

Rittimann, Russell “Expand Your 6502-Based TIM Monitor’. A modification of the TIM system to expand the 
command set so that ROM resident programs or routines can be executed from within TIM. 

Dial, Wm R. “6502 Bibliography— Part VIII". The 6502 literature continues to expand. 

Sandberg, Gary P how Does 16 Get You 102”. Hexadecimal/Decimal conversions for the Apple. 

Herman, Harvey B. “How Does Your ROM Today”. Programs and techniques for testing the KIM and PET ROMs. 

Bridge, Theodore E. ‘Life for the KIM-1 and an XITEX Video Board”. Program runs on a 16K Kim. 


CONTACT Newsletter No 4 (Dec. 1979) 

Anon “Apples work PIA’s’”. A note to the effect that the problems reported earlier by END magazine on the 
apparent incompatibility of the Apple with PIA’s have been resolved and that EDN now believes this long 
saga must have had its source in human error. (See EDN Magazine, Sept. 20, 1978) 

Anon, “‘The Colon as a Listing Formatter for Applesoft’’. How to indent your listings for neatness and easy 
reading. 

Annon “Disk Operating System Notes”. Includes Notes on Data Format, Using Random-Length Records, Using 
Fixed-Length Records, Appending Files, DOS Error Codes, Getting Commas into Applesoft, etc. 


Dr. Dobb’s Journal 4 No 32 Issue 2 (Feb., 1979) 

Gordon, H.T. “An Unusual Pseudorandom Number Generator Program’’. Program for the K1M-1. 

Carpenter, Chuck “Reset Adapter”. How to avoid accidental loss of programs involving the reset button on the 
Apple II 

Prigot, Jonathan M. “‘Loading Kim’s Cassettes”. How to load OSI cassettes into the KIM. 


Byte 4 No 2 (Feb., 1979) 

Libes, Sol “Byte News”. Atari has two new 6502 based computers. According to the latest sales reports, more 
6502 microprocessors are being manufactured than any other uP. Most of the volume goes to high volume 
game use. 

Mathews, Dr. Randall S. “An Apple and the Queens”. An Eight Queens program for the Apple. 

Raskin, Jef “Unlimited Precision Division”. A BASIC program for unlimited integer division. 


Kilobaud No 26 (Feb., 1979) 

Green, Wayne “Publisher's Remarks”. A review of OSI’s new units the Ip and IIP Challengers. 

Lindsay, Len “PET Pourri’’. Accssories for the PET include a voice input module, a sound output module, 
Joysticks, a digital plotter, a light pen, and an S-100 adapter for the PET. How to add sund to your PET and 
sound programming instructions. New languages to supplement Basic are PILOT and PETFORTH. New 
sources of information on the PET are the PET Manual and a manual called PETABLE, as well as a newsletter 
called Sphinx. Programming tips cover the GET, ON. . .GOSUB, and others. A new wrinkle for recovering 
programs from faulty tapes is given. 
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435. 


436. 


437. 


437. 


Flogel, Ekkehard “Apple and the PIA”. Contradicting the troubles reported by EDN magazine, a board was 
developed with a PIA 6520 on it to put an Apple Il and a KIM together. Programs can be sent from one unit 
to the other and vice versa. 

Price, David ‘‘Music, Maestro’. The AD8 is a computer-controlled synthesizer system using a 6502 
microprocessor and a 6820 I/O port. 

Bishop, Robert J. “The Apple Speaks. . Softly’. Apple 1! Voice digitizer. 


Calculators/Computers Magazine 3 No 1 (Jan./Feb., 1979) 
Day, Jim “High-Resolution Apple Art’. Applesoft It program for various shapes. 
Albrecht, Bob and Karl “PET BASIC for Parents and Teachers”. PET Conventions in a simple snimation program. 


73 Magazine No 221 pg 21 (Feb., 1979) 
Birman, Paul ‘Petting’. How to find the end of a program on tape when you want to load a new program into 
your PET. 


Personal Computing 3 No 2 pg 63-74 (Feb., 1979) 
Gerue and McNeil, “Chess Challenger-10 Wins Microchess Tourney’. Microchess 2.0, Peter Jennings entry, 
took fourth place. This is 6502 based. 


Creative Computing 5 No 1 (Jan., 1979) 

Yob, Gregory “Personal Electronic Transactions’. New products described are Expandapet memory, PET ROM 
disassemblies, a useful book on what the PET rom is all about, Some data on the User Port, PET Video Slave 
display, Exploring PET random numbers, PET sounds and music, etc. 

Wells, Ralph “HOw about a ‘Counterfeit Cursor’ For your PET?”. Enables one to use the cursor in games or 
under better control. 

Heuer, Randy “Ohio Scientific Superboard 1! and Challenger 1P’’. A review of OSI’s new lost cost micro. 


Rugg and Feldman “Speed Reading Made Easy...via Your PET”. This program turns your computer into a 


tachnistoscope to teach improved reading habits. 
Milewski,Richard A. “Apple-Cart’”’. All about Data Files on diskettes. Simple file accessing statements, Sample 
serial access programs, and some software reviews. 


NOTE: The Bibliography is continued from “The BEST of 
MICRO Volume 1”. 


224 


